الفصل الأول 
البداية مع فيجوال استوديو 2008 
مقدمة: ما هي فيجوال بيسك 2008 ؟ 


فيجوال بيسك2008 هي اداة تطوير يمكنك استخدامها لبناء تطبيقات برمجية ك" 0اأةءااممه 2۲6س)؟مء تنجز عمل مفيد ليبدو عظيما من خلال اعداداته المتنوعة .باستخدام فيجوال 
بيسك2008 تستطيع ان تنشئ تطبيقات لنظام التشغيل ویندوز, تطبیقات الانترنت, تطبيقات النقال(الهاتف المحمول), 
الفائدة الاكثر ا ارا و انھا تم تصميمها بحيث على زيادة قدرتك الانتاجية في عملك البرمجي اليومي .»وخصوصا اذا كنت تريد استخدام المعلومات في قواعد البيانات 
أو انشاء حلول للإنترنت.ولكن الفائدة الهامة هي حالما تعتاد على الادوات في الفيجوال أستودو 2008 والتي الفيجوال بيسك 2008 هي احدى اللغات المدعومة من قبلها,تستطيع استخدام 
هذه الادوات لكتابة البرامج للفيجوال2008 C++‏ والفيجوال سي شارب2008 C#‏ ,والويب 2008 6۲م0ام06۷ ط6 ومكونات اخرى ا 
تاتي الفيجوال استوديو 2008 في عدة طبعات(اصدارات مختلفة لنفس المنتج) متضمنة الطبعة القياسية 2۲١ ع١Qأا0 ١‏ ل٣‏ اء ,الطبعة الاحترافية di0‏ اProfessiona‏ ,والطبعة 
المعدة لعمل فريق عاأuا؟S "٠۴4۳"‏ وأخيرا الطبعة السريعة 0۸ااك٤‏ ووه م×ع(مايناسب هذا الكتاب هو الطبعة القياسية على الرغم من ان بعض الادوات ستكون غير موجودة فيها متثل 
ادوات قواعد البيانات لذلك من الافضل استخدام الطبعة الاحترافية) ويوجد ايضا بعض الاختلاف لمن استخدام اصدار سابق من الفيجوال استوديو نت كالفيجوال استوديو 2005 وهذه 
الاختلافات هامة ,لذلك اوصيك باستخدام فيجوال استوديو 2008 وبشكل خاص الطبعة الاخترافية. 
نظام التشغيل المطلوب من اجل الفيجوال استوديو 2008 
ر الى التجهيزات والبرمجيات التالية لاتمام التدريب في هذا الكتاب: 
نطام التشغيل ويندوز فيستا أو اكس بي سيرفس باك 2 أو ويندوز سيرفر 2003 سيرفس باك 1 
ميكروسوفت فيجوال استوديو 2008 (إما الطبعة القياسية St” 2١ ٤0^‏ ,أو الطبعة الاحترافية 0|) ٤di‏ امssionمProf‏ «اوالطبعة المعدة لفريق عمل ٦٥4۳‏ 
(Suite‏ 
> تجهيزات الكمبيوترالأدنى المطلوبة : معالج 1.6 67 غيغا هرتز , M18 R۸١۷‏ 384 ميغابايت من الذاكرة العشوائية,768×1024 شاشة عرض ,القرص الصلب 5400 
R۷‏ دور ة/دقیقة, . 
> تجهيزات الكمبيوتر الموصى بها: 2.2 غيغا هرتز أو اعلى 1024 ميغابايت من الذاكرة العشوائية أو اعلى شاشة 1280×1024 (من اجل ويندوز فيستا :معالج لايقل عن 
MB RAM 2.4 GHz‏ 768 (الذاكرة العشوائية) وباقي التجهيزات الضرورية المتوفرة عند الجميع على ما أظن. 
سأفترض انك نصبت واحد من إصدارات الفيجوال أستوديور 2008 من اجل هذا الكتاب فاني سأستخدم طبعت فيجوال أستوديو الاحترافية professional edition‏ ولکن 
من اجل كل شيء تم مناقشته في هذا الكتاب يمكن أن يطبق أيضا باستخدام الطبعة القياسية ١0ا١6 ۸02۲١‏ اء ولكن بعض ميزات الطبعة الاحترافية والتي لا تكون 
مدعومة بالطبعة القياسية فيما يخص أدوات قواعد البيانات التي شرحت في الفصل من 21 إلى الفصل 24 , يبدا هذا الكتاب بخلاصة عن الفيجوال أستوديو وأدواتها الأساسية 
ولا يتطلب منك معرفة مسبقة في ۷/86 ,فقط بعض المعرفة بالبرمجة بشكل عام والفيجوال بيسك هي واحدة من لغات البرمجة ضمن الفيجوال أستوديو التي تستطيع بناء 
تطبيقاتك بها , وقد اتبعت الإقناع والبساطة في هذا الكتاب وما يجب أن تتذكره دائما هوان فيجوال أستوديو هي بيئة تطوير متكاملة لبناء واختبار وتشغيل وتصحيح الأخطاء 
وتوزيع تطبيقات متنوعة مثل تطبيقات ويندوز ٣0هام‏ مج widows‏ وتطبيقات الويب ۸٥0اأهااممج‏ طعس وأدوات التخصيص والفئات classes and custom‏ 
contr‏ وحتى تطبيقات هاهء٣‏ ه0 وبالتالي فإنها تدعم عدد ضخم من الأدوات المرئية وامها اهاوا لانجاز العديد من التصميم المشترك ومهمات البرمجة وميزات 
أخرى إضافية أكثر من أن يستطيع أي مؤلف تغطيتها. في هذا الفصل سوف تتعلم ما يلي: 
1 - استكشاف بيئة التطوير اnlتكlمlة integrated development environment of Visual Studio‏ 
2- فھم أساسيات تطبيقات windows applications jig‏ 


اذا كنت جاهز للعمل في ميكروسوفت فيجوال بيسك 2008 ,هذا الفصل سيمنحك المهارات التي تحتاجها لتنهض وتعمل مع بيئة التطوير المتكاملة للفيجوال استوديو 2008( لاه وها١|‏ 

evelopment Environment(|DE)‏ () حيث المكان الذي ستكتب فيه برامج فيجوال بيسك,وفي هذا الفصل ستتعلم كيف تشغل فيجوال استوديو 2008 وكيف تستخدم بيئة التطوير 

المتكاملة 0٤‏ |) لفتح وتشغيل برامج بسيطة ,وستتعلم اساسيات قوائم واوامر بالاضافة الى اجراءات البرمجة في الفيجوال استوديو...وسوف تعمل برنامج اولي بسيط كل شي بوقته حلو... 
بالاضافة الى لغة البرمجة التي ستتعلمها في هذا الكتاب ,فان بيئة تطوير الفيجوال بيسك التي ستستخدمها لكتابة البرامج تدعى بيئة التطوير المتكاملة لميكروسوفت فيجوال استوديو 

Microsoft Visual Studio Integrated Development Environment‏ أو تختصر الى |9٤‏ فالفیجوال ل استوديو ورشة عمل فعالة وقابلة للتخصيص وتحتوي على جميع 

الادوات التي تحتاجها لبناء برامج فعالة من اجل الويندوز والانترنت بشكل خاص.معضم المواصفات في بيئة تطوير الفيجوال استوديو تطبق تماما على الفيجوال بيسك, والس بلس بلس 

++€ والسي شارب#K€‏ , استخدم التعليمات التالية لتشغيل الفيجوال استوديو 2008 : 

1- اضغط 5)٣‏ ابدأ من شریط المهام لویندرز 2۲ ط)sھا Windows‏ /جمیع البرامج ۶ "۲۵۳و٥۴۲‏ ۱ا۸/مجلد مكروسوفت فيجوال استوديو 2008 Visual Studio ) folder‏ 

8) / ومن القائمة اختار الايقونة التي يظهر عليها شعار ميكروسوفت فيجوال استوديو 2008 )2008 (Microsoft Visual Studio‏ 

ليظهر لك الاختيار السابق يجب ان تكون قد نصبت احد اصدارات الفيجوال استوديو 2008 والا فلن تستطيع المتابعة, 

2- اضغط على هذه الايقونة التي عليها شعار ميكرسوفت فيجوال استوديو 2008 فاذا كانت المرة الاولى التي تشغل فيها فيجوال استوديو ,يمكن ان تاخذ وقت لاعداد بيئة التطوير ,فاذا ما 

طلب منك ادخال اعدادات التي ستستخدمها اختار اعدادات تطوير فيجوالJ‏ بıسڭكnt Visual Basic develop me‏ 

عندما تبدا فيجوال استوديو سترى بيئة التطوير على الشاشة مع العديد من نوافذها,ادواتها,ونوافذ المكونات(هذه النوافذ في بعض الاحيان تدعی نوافذ الادوات sسw W۸۵0‏ /00]) وسترى 

ايضا صفحة البداية ۴286 S4۲‏ وهي تحتوي على مجموعة من الروابط ,ومواضيع شبكة مطوري مكروسوفت Microsoft development "¬6 ( (١(5) N‏ ) صفحة البدایة 

مصدر واسع من المعلومات حول مشاريعك بالاضافة المصادر من ضمن طائفة تطوير فيجوال بيسك والتي تربطك بمساعدة ميكروسوفت من المستندات المحلية التي تدعم بها النسخة التي 
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نصبتها أو يمكن تحديث المعلومات مباشرة من خلال الاتصال بالانترنت كماهو مبين في الشكل. 
| 
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اذا وكما ذكرفي االاعلى الفيجوال بيسك هو واحد فقط من اللغات التي تستطيع استخدامها لبرمجة تطبيقاتك واللغة هي سمة واحدة فقط لتطبيق ويندوز فالواجهة المرئية للتطبيق غير مرتبطة 
بلغة معينة ونفس الأدوات التي ستستخدمها لتطوير واجهة تطبيقك سيتم استخدامها أيضا من قبل جميع المبرمجين بغض النظر عن اللغة التي يستخدمونها لكتابة كود التطبيق . اتبسيط 
معالجة تطوير التطبيقات تزودك فيجوال أستوديو ببيئة مشتركة لجميع اللغات والتي تعرف ببيئة التطوير المتكاملة D€) integrated development environment‏ ) الھدف من 
(0۳) هو تمكين المطور من الاستفادة قدر الإمكان من الأدوات المرئية قبل كتابة الكود. تزود |0٤‏ بأدوات لتصميم وتنفيذ وتصحيح أخطاء تطبيقاتك » سوف أقوم بشرح المكونات 


المتنوعة لبيئة التطوير كلما اقتضت ت الحاجة في منهج هذا الكتاب » سوف تلقي نظرة على مكونات بيئة التطوير في هذا المقطع والتي تحتاجها لبناء تطبيقات ويندوز وسوف تتعلم كيف تسمح 
لك أدواتها بتصميم واجهة المستخدم الخاصة بتطبيقك بشكل سريع بالإضافة إلى كيفية برمجة التطبيق /يئة التطوير المتكامل هي سطح مكتب ثاني سوف تقضي معظم ساعات إنتاجك في 
هذه البيئة . 


ا اذا كنت لا ترى صفحة البداية ربما تكون بيئة التطوير لديك في عرض الوثائق المتعدد sاہ‏ م٣‏ ںع0c ٥‏ ماماtااMu‏ بدلا من عرض الوثائق ذات المقابض 4٥ططھآ‏ 


view‏ cumentsط‏ لتبدل هذا الخيار : من قائمة ادوات امع" ءامه" اختار الخيار الاخير و١‏ هام0 خيارات وعلى الجهة اليسارية لصندوق حوار الخيارات ٣s‏ ام0 مدد 
تصنيفات بيئة التطوير واضغط على اك6۲" 66 عام ومنه في اللوحة التي على اليمين لصندوق الحوار وتحت نافذة التخطيط ارام رتا سهل "ا۷ اضغط على الخيار وثائق مقبضية 


Documents‏ bedطه"‏ ومن ثم اضغط 0 في المرة اللاحقة التي تبدأ فيها فيجوال بيسك فان النوافذ المتعددة لبيئة التطوير قد اصبحت جميعها ذات مقابض ولديها عرى على جوانب 
بيئة التطوير وتستطيع التبديل بين هذه النوافذة بكل بساطة وبمجرد الضغط على العروة وما ان تغادرها حتى تعود الى وضعها الاولي أي انها تعود الى جوانب بيئة التطوير . 
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Show all settings 


عندما تشغل فيجوال أستوديو لأول مرة سوف تقاد لاختيار نوع المشروع الذي تخطط لبنائه في فيجوال أستوديو لذلك فان الفيجوال أستوديو يمكن أن تخصص بشكل مثالي من اجل نوع 
معين من التطوير , سأفترض انك بشكل ابتدائي اخترت إعدادات تطوير فيجوال بيسك والتي تخصص نسختك من الفيجوال أستوديو لبناء تطبيقات ويندوز والويب باستخدام ۷52008 
تستطيع دائما تغيير هذه الإعدادات كما سيشرح في نهاية هذا المقطع » بعد الإعداد الأولي سوف ترى نافذة مشابهة للمعروضة في الشكل الأسفل , لوحة المشروعات الحديثة ستكون فارغة 
مالم تكن قد أنشأت مسبقا بعض التطبيقات , سوف يكتشف فيجوال أستوديو إعدادات من إصدار احدث لذلك إذا كنت تستخدم إصدار احدث للفيجوال أستوديو فان النافذة التمهيدية لن تكون 
ممائلة للظاهرة فى الشكل 
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الشكل(1.1)صفحة البداية 
ترى هنا قائمة بالمشروعات التي فتحتها حديثا باستخدام فيجوال أستوديو وتستطيع اختيار أي منها لتفتحه مرة أخرى وتتابع العمل عليه 
في صفحة البداية اختارمن لوحة مشاريع حديثة ؟اعزم٣۲۴ Recent‏ اضغط رابط )٣اا‏ فتح مشروع اء هزهآ۴ "هم0 , يظهر صندوق حوار فتح مشروع الظاهر في الشكل على 


الشاشة( تستطيع ايضا ان تعرض هذ صندوق الحوار هذا من خلال الضغط على الامر فتح مشرو عا هزه٥‏ 0م من قائمة ملف أو بواسطة الضغط على ۸1+0 01) وهذه النافذة 
مشابهة تماما لباقي نافذ الفتح في باقي البرامج تستطيع الاستعراض والبحث عن المشروع اوالملف الذي تريد من خلالها. 
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الشكل(10) صندوق حوار فتح مشروع في بيئة التطوير للفيجوال استوديو 
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Yisual Basic Project file 


تزودك الفيجوال استوديو بصندوق اختيار خاص يسمى (اظهر دائما الحل ٣٥uiاهS SW‏ sرهسا۸)‏ وذلك من اجل التحكم بالعدید من الخيارات المتعلقة بالحلول ٣۶‏ ٥اا‏ امو من 
ضمن بيئة التطوير |0٤‏ , لايجاد صندوق الاختيار هذا اختار من قائمة أدوات ءامه" الخيار الاخير خيارات ء١‏ ٥0اام0‏ ليظهر لك صندوق الحوار في الشكل ومن العروة 
اه6( عام)مدد هذه العروة تحتها تجد مشاريع وحلول 0١s‏ uاه؟S‏ ٩ه‏ كأعهزها۴ / من اللوحة على اليمين شاهد هذا الخيار فاذا ما تم اختياره أو تفعيله فان مجلد فرعي سيتم 
انشاءه مع كل حل جديد 501/0۸ » يتم وضع المشروع وملفاته في مجلد منفصل تحت الحل,واذا ما اخترت ايضا اظهار الحل دائما فان العديد من الخيارات المرتبطة بالحلول 
“ئ0ااااهء ستظهر في بيئة التطوير ٤(|,مثل‏ الاوامر في قائمة ملف |۴ ومدخلة الحل في مستكشف الحل 0۲6۲ام×٤ ١‏ ٥ااu‏ ام فاذا اعجبتك فكرة تحميل مجلد منفصل للحلول 


وتريد رؤية الاوامر والاعدادت المتعلقة بالحلول اختار صندوق الاختيار هذا, 


Wisual Studio projects location: 


[CDocuments and Settings mh DocumentsYyisual Studio 2008P rr) [ 2 ا[‎ 
Wisa Studio user project templates location: 

|C:Dacuments and Settings tmhrmty DocumentsYisual Studion 20087 e| [ س‎ ] 
Yisual Studio user item templates location: 

[CD ocuments and Settings mhrmt My DocumentsYisual Studion 2008%Te| [ 4 1 


Always show Error List if build finishes with errars 
Track Active Item in Solution Explorer 

[L 1Show advanced build configuraktiors 

LI Almays showy solution 

[ 1Save nem projects wher created 

Warn user when the project lacation is not trusted 
L1 Show Output window wher build starts 

[ 1Prompt for spmbalic renaming when renaming files 


Ok. | Cancel‏ ا 


E Environment 
` General 
= Fonts and Colors 
Keyboard 
3 Projects and Solutions 
HH. Tet Editar 
E Windows Forms Designer 
EH. Device Tools 


[ 1Show all settings 


هذا المقطع هو نافدة مستعرض والتي تعرض Microsoft Developer Network) [SDN‏ eطt)‏ والذي هو صفحة مصدر محدد لجمیع تقنیات ومنتجات میکروسوفت عندما یتصل 
الكمبيوتر بالانترنت في هذا المقطع سوف ترى أخبار جديدة حول الفيجوال أستوديو , اللغات المدعومة , مقالات, وأجزاء معلومات أخرى مهمة. 


هذا المقطع يحوي على وصلات لمهمات برمجية أساسية في منتج المستندات (التعليمات) 


هذا المقطع يحوي وصلات لإعلانات كأ١‏ "عع" اهمه وأخبار مهمة لمطوري فيجوال بيسك 
لتجعل معالج الإعداد يبدا في صندوق |mport And Export Settings‏ واختار الأمر امع" ءامه۲معظم المطورين يتجاوزون صفحة البداية ولفعل هذا , افتح قائمة أدوات 
الذي ستحفظ فيه المعلومات الجديدة بحيث يستطيع الفيجوال أستوديو قراءتها في كل مرة يبدأ فيها, اترك الموقع الافتراضي كما ناء م|الحوار الأول للمعالج والذي يسألك عن المكان 
مره ة أخرى لرؤية النافذة الأخيرة للمعالج والتي بسال فيها لاختيار مجموعة افتراضية من الإعدادات هذه المجموعات تعتمد على الخيارات التي تكون قد نصبتها على ×6 هو واضغط 
نظامك , أنا نصبت فيجوال استوديو 2008 مع فيجوال بيسك فقط على نظامي ,وبالتالي عرضت لي الخيارات التالية: 

General Development Settings, Visual Basic Development Settings, and Web Development Settings 
لذلك يستطيع الفیجوال‎ Viوuaا‎ Basic Development Se) ہوs من الإعدادات الافتراضية لنسختي من الفيجوال أستوديو ولأهداف الكتاب اخترت إعدادات تطوير فيجوال بيسك‎ 
أستوديو أن يكون البيئة الأمثل لتطوير فيجوال بيسك نموذجي » اضغط ۸ءأمأ۴ لرؤية ملخص العملية ومن ثم أغلق المعالج.‎ 


عند هذه النقطة تستطيع إنشاء مشروع جديد وتبدأ العمل في الفيجوال أستوديو , من اجل الشرح الأفضل للبنود المتنوعة لبيئة التطوير سوف نبني نموذج بسيط , وهذا النموذج هو نافذة 
تطبيقك (انه ما سيراه المستخدم على سطح المكتب عندما يشغل تطبيقك ) افتح قائمة ملفں عص ٥ا۴‏ واختار مشرgع‏ جıد Create طغضl yi New Project‏ 

Solution‏ /ecزدPr‏ في صفحة البداية (موه۴ Sa‏ هط )i‏ في صندوق حوار مشروع جديد الذي يظهر لك سترى قائمة بأنواع المشاريع التي تستطيع إنشاءها في الفيجوال 
أستوديو , الأكثر أهمية من بينها هو تطبيقات نماذج ویندوز Windows ۴orms Aمماi‌ھااo rs‏ والتي هي تطبيق ویندوز نموذجي مع واحد أو أکثر من النماذج ( 0۲۳5 

)WNNN 6‏ , تطبيقات إل مامومهC‏ التي هي تطبيقات بسيطة والتي تتفاعل مع المستخدم من خلال نافذة نصية 0Wل‏ ”اس ×ه) , مکتبات أدوات نماذج وiıدرj Windows Forms‏ 
Control Libraries‏ التي هي مجموعات من الأدوات المخصصة, ومكتبات الفئات والتي هي مجموعات من الفئات › هذه هي أنواع المشاريع التي سوف نغطيها بعمق في هذا الكتاب. 


New Project id 
Pioject types: Templates: [HET Framework 35 3 a E 
ف‎ Vu BE آ‎ VWrsuzal Stuelea installed templates Î 
Winghorwes. GA windows Forms Application EM Class Library 
. Office a WPF Fup plîcatîon GL WPF Browser Application 
SRE TEHSReE N Console Application El Cryatal Reports fAupplîeatêeon 
EE E Empty Project Fl eines 
Saverlight Sl Empty Proje winders Sernee 
Fest u WPF Cuttom Conîrol Library gı WPF Lger Control Library 
WCF EA Winders Forrns Control Library Pl Reports Applicaton 
Weh Ml Templates 


Workflow 
Other Project Types 
Test Projets 


Search Online Templates... 


A project far creating an npplicnban with n Minden user interface (NET Framework 3.5) 


Haare My TestApplicatioa 
Locations GN al WE SAMPLE CODE Browne... 
Solution Name: MiyT estApplication Fl Create derectory for solution 


a S| 


الشكل(1.2)صندوق حوار مشروع جديد 
2 و قد نصبت فيجوال بيسك بطبعته السريعة ۸ Basic 2008 Express Edi†i0‏ اaمVisu‏ سترى عدد اقل من المشاريع في صندوق حوار مشروع جديد ولكن المشاريع التي 
قشت في هذا الكتاب ستكون محتواة لاحظ صندوق الاختيار Create Directory ۴o۲ Sھاu ti0‏ في الشكل السابق (صندوق حوار مشروع جديد) بشكل افتراضي يقوم الفيجوال 
ا بإنشاء مجلد جدید للمشروع تحت المجلد الذي حددته في الصندوق Location‏ اذا کنت ترید وضع اختصار للتطبيق بنفس المجلد لاختبار میزات اللغة أو انجاز بعض المهمات 
العاديةء ربما تكون لا ترغب بحفظ المشروع في هذه الطريقة عليك فقط عدم اختيار صندوق الاختيار ( ازل علامة الصح من صندوق الاختيار التي تظهر في الشكل السابق) لتخطي إنشاء 
مجلد جديد للمشروع. تستطيع دائما حفظ المشروع في أي وقت باختيار الامراا۸ م۷هS‏ من قائمة ملف ىع ٠ا۴‏ سوف تسأل عند تلك الحالة عن ملف المشروع وسيحفظ الفيجوال 
أستوديو المشروع تحت الملف الذي حددته انت, اذا قررت طرح الشروع جانبا ١٣4٥ءا‏ تستطيع عندها إنشاء مشروع جديد أو إغلاق 0ألں؟ اهuء۷‏ ستسألك الفيجوال أستوديو عن 


المشروع المفتوح الذي لم يتم حفظه بعد وتستطيع اختيار عدم حفظه , 
من اجل مشروعنا اختار القالب تطبیق نماذج ویندوز teھام Windows Forms Application te‏ سیقترح الفیجوال استودیو لاسم 1011 icaاsApp Window‏ کاسم للمشروع , 
ضع علامة صح في صندوق الاختیار "i0اuاSo Create Directory For‏ ومن ثم اضغط »0 من اجل مشروع جديد معروض في الشكل (بيئة تطوير الفيجوال أستوديو 2008 
لمشروع جديد) يمكن أن تكون النافذة الرئيسية لديك مختلفة نوعا ما ولكن لا تقلق سوف استعرض جميع المكونات التي تحتاج الوصول إليها في عمليات التصميم وكتابة الاكواد واختبار 
تطبيقات ويندوز. 
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الشكل(1.3)بيئة تطوير الفيجوال أستوديو 2008 لمشروع جديد 
يحتوي المشروع الجديد على نموذج موجود حاليا, النموذج ۴٥۲۳٣1‏ هو عنصر في ١0۲6ام×٤‏ ١٥ااuاهS‏ مستكشف الحل » النافذة الرئيسية لبيئة التطوير المتكاملة 0۴| هي مصمم 
النماذج ٣عواوم0‏ ۴۲۳ والسطح الرمادي عليه هو نافذة تطبيقك الجديد في وضع التصميم ٥ل١0"‏ ۸ ووه باستخدام مصمم النماذج ستكون قادر على تصميم واجهة مرئية لتطبيقك 
(وضع المكونات المتنوعة لواجهة الويندوز على الفورم وإعداد خواص هذه المكونات) ومن ثم برمجة التطبيق , بيئة التطوير الافتراضية نوعا ما مزدحمة لذلك دعنا نخفي عدد من أشرطة 
الأدوات والتي لن نستخدمها في مشاريع عدد من الفصول الأولى»ء تستطيع دائما إظهار أي من أشرطة الأدوات في أي وقت ,افتح قائمة عرض اصع" ۷٥۷‏ واختار شريط الأدوات 


65لصه/) سوف ترى قائمة فرعية uم‏ اء مع 28 أمر التي هي (عقد اختيار أو عدم اختيار ئهاووه)) كل أمر يتطابق مع شريط أدوات 5١2طاهه)‏ وتستطيع تحويل الشريط 
الموافق إلى عرض أو عدم عرض (من خلال صندوق الاختيار الذي يظهر أمامه ) بواسطة الضغط مرة واحدة في القائمة الفرعية لشريط الأدوات, حاليا اختر عدم عرض جميع الأشرطة 
ماعدا أشرطة الأدوات ءاaطامها‏ (١2۲ك”ه†S Layout and‏ ) شريطا الأدوات هذان يظهران بشكل افتراضي وليس عليك إخفاؤهما اذا كنت قد أخفيتهما هذا هو المكان الذي تستطيع 
إظهارهما مرة أخرى.البند الأخير في القائمة الفرعية لأشرطة الأدوات uرع٣طناء‏ ء2۲طامه] هو الأمر تخصيص 0ء والذي يقودك إلى صندوق حوار والذي فيه تستطيع 
تحديد أي من أشرطة الأدوات وأي من الأوامر التي تريد أن تراها , بعد ان تكون قد أتمت عينة العمل , اختار هذه القائمة لتخصيص بيئة التطوير للطريفة التي تريد أن تعمل بها مع 
الفيجوال أستوديو , تستطيع إخفاء أي من مكونات بيئة التطوير ماعدا القائمة الرئيسية ,بعد كل هذا عليك أن تكون قادر على التراجع عن التغيرات التي قمت بها. 


اذا كانت الفورم 0۸ (النموذج ) أو ما تسمى واجهة المستخدم ٥8‏ ]8۲| ٣ه‏ (وتسمى ايضا واجهة ويندوز)غير مرئية تستطيع عرضها بشكل خاص عندما تعمل على فتح مشروع 
جديد كما مر معنا سابقا فيمكن الا تتنتقل بيئة التطوير مباشرة الى المشروع الذي فتحته أو فورم هذا المشروع لذلك لعرض هذه النافذة اعمل التالي: 
عليك ايجاد نافذة مستكشف الحل٣٠٣٠0ام×٤‏ ٣٥اه‏ وهي بالعادة تكون على الجهة اليسرى لبيئة التطوير ,فاذا كانت غير ظاهرة هي ايضا من القائمة عرض(Wه|۷‏ ) اختار الامر 
مستكشف الحل ۲٥۲٥0ام×ع‏ ۸ ااه وبالتالي سيظهر في المكان المخصص له على يسار بيئة التطوير فعندما يتم تحميل المشروع تظهر له ايقونة باسم المشروع الذي فتحته تحت نافذة 
مستكشف الحل اضغط مرتين على هذه الايقونة وسيظهر لك المشروع الذي قمت بفتحه كما في الشكل التالي لاحظ في الشكل اسم المشروع الذي قمت انا بفتحه وهو الان في مستكشف الحل 
MusicTrivia.vb aly‏ : 
salutiaon Explorer‏ 
E‏ 1 |1 
PAussicTriwia‏ ا 
A] Fy Project‏ 


EZ 


îl solution Explorer FREES SOUFCES 


لتصميم الفورم عليك وضع الأدوات عليها التي تريد عرضها للمستخدم وقت التشغيل والأدوات هي مكونات واجهة ويندوز مثل (الأزرار, صناديق النصوص, أزرار التبديل , القوائم 
)المعروضة في الشكل (صندوق أدوات نماذج ويندوز) صندوق الأدوات هذا يحتوي على أيقونة لكل أداة ( اهمه )تستطيع استخدامها على نموذجك ۴٥۲۳(‏ ٣لاهر)»ء‏ الأدوات تكون 
منظمة في مجموعات تبعا لوظيفة كل أداة , في هذا الفصل سوف ننشئ تطبيقات ويندوز بسيطة وسنستخدم الأدوات في لوحة الأدوات المشتر كة(طه) sاەrأCon common‏ )عندما تعمل 
مع تطبيقات الويب سوف ترى مجموعة مختلفة من الأيقونات في صندوق الأدوات. لوضع أداة على الفورم تستطيع بالضغط المزدوج على إيقونتها , ونسخة جديدة من الأداة مع الحجم 
الافتراضي سيتم وضعها على الفورم ومن ثم تستطيع تغير موضعها وحجمها بواسطة الفارة, أو تستطيع اختیار الأداة من صندوق الأدوات بواسطة الماوس ومن ثم تضغط وتسحب الماورس 
فوق الفورم وتحرك الماوس إلى المكان الذي ستضع فيه الأداة ومن ثم تترك الأداة وبالتالي نسخة جديدة من الأداة ستوضع غل الفورم ,ابداً بوضع الأدوات غل الفورم بالطريقة التي تراها 
مناسبة ,. خواص الأداة سيتم عرضها في نافذة الخصائص W١00 ۷W۷‏ 5هآا هم٠۴۲‏ ( لاحظ الشكل (نوافذ بيئة ة التطوير)) هذه النافذة في الحافة اليمنى لبيئة التطویر |0٤‏ أسفل مستكشف 
llلExplorer)J‏ i7ااS0)‏ ويعرض خواص الأداة المختارة على الفورم , إذا كانت نافذة الخصائص غير مرئية , افتح القائمة »ه۷ واختار نافذة الخصائص كع|) Prop‏ 
yİ Window‏ اضغط ۴4 , إذا كان لا يوجد أداة مختارة فإنه يتم عرضه الخصائص لبند مختار في مستکشف الحل,تسمی نافذة الخصائص أيضا بمستعرض الخصائص Properties‏ 
B Ns‏ التي تحدد مظغر. الأداة وفي بعض الحالات وظيفتها, والخصائص منظمة تبعا لدور هماهم ٣أمط)‏ فالأدوات التي تتحكم في المظهر للأداة جدولت بالترتيب الهجائي تحت 
العنوان ع٥٣2۲2‏ همم أما الأدوات التي تتحكم بسلوك الأداة جدولت أيضا بالترتيب الهجائي تحت العنوان 2٥ط‏ سلوكr‏ ٥۷ھ۸٥8‏ وھکذا ,تستطیع ضغط الزر ۸Z طںاا٥ ١‏ في 
شريط عنوان النافذة لعرض جميع الأدوات بالترتيب الأبجدي۲٠‏ ل۲٥‏ اهءاا6طاه ماج , بدل الترتيب إلى الترتيب الأبجدي للخصائص. 
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الشكل(1,4)نوافذ بيئة التطوير 


حالما تضع الأداة على الفورم فان صندوق الأدوات يتقلص إلى الحافة اليسر للمصمم6۲٠‏ ويه( ع٣ا‏ fه‏ موله اها to th‏ sاtracه‏ تستطيع تثبيته على الشاشة وذلك بالنقر على 
الإيقونة التي لها شكل القلم في شريط أدوات صندوق الأدوات (وهي الأيقونة المجاورة لإيقونة الإغلاق في الزاوية العلوية اليمنية لنافذة صندوق الأدواتس0ل١ Wİ‏ ×001(0 ۲ )وهي 
تظهر فقط عندما يتم ترصف صندوق الأدوات(0 ٠‏ )عه وا) وليس عندما يكون عائم(و”iاهه|؟)‏ تستطيع بسهولة أن تعيد ترتيب النوافذ المختلفة لبيئة التطوير بالطريق التي تحبها 
(atin9داf docked,‏ ,dعxاfi‏ ) وما إلى ذلك.كما يظهر في الشكل (نوافذ بيئة التطوير) 


في الفيجوال بيسك كل عنصر على واجهة المستخدم ٤٥٣٠ء‏ اع معهfامint‏ rمus ach‏ في البرنامج (بما فيها النموذج نفسه اوالواجهة نفسها) لديه مجموعة من الخصائص المحددة, 
تستطيع ان تعد هذه الخصائص وقت التصميم باستخدام نافذة الخصائص W|١۵0W‏ ممه , أو من خلال الكود نفسه لتنجز عمل هام بينما يتم تشغيل البرنامج(مثل أدوات الواجهة 
التي تقبل مدخلات من المستخدم غالبا ما تستخدم الخصائص لنقل المعلومات الى البرنامج) .يمكن ان تجد في البداية ان الخصائص مبدا صعب الفهم,لذلك تصور انها شيء ما كاي شيء في 
الحياة يمكن ان يساعدك,اليك متلا تمثيل الدراجة العادية: فالدراجة هي كائن تستخدمه لتركبه من مكان الى اخر ولان الدراجة هي كائن مادي لذا فان لديها العديد من الميزات الملازمة 
inherent characteristics‏ فلديها اسم الماركة م٣ه"١‏ ١۲ط‏ ولون وسلاسل وفرام وعجلات وكذلك تم بناءها بتصميم معين(يمكن ان تكون للرحلات,أو لصعود الجبال اويمكن ان 
تكون قد تم بناءها من اجل الاثنين معا) في مصطلح 9yهاه”آ"۲]‏ الفيجوال بيسك هذه الميزات(التشخيصات كء|أءا هاج )هي خصائصءعا)/٥م٠۲م‏ كائن الدراجة, معظم 
خصائص الدراجة تم تحديدها عندما تم بناءها,ولكن الخصائص الاخرى متل(الاطارات, السرعة, وخيارات اخرى متل العاكسات والمريا) هي خصائص تتغير بينما يتم استعمال 
الدراجة,.ويمكن حتى ان يكون للدراجة خصائص غير ملموسة هاطأوه† |١‏ معنوية (والتي لا تكون مرئية) مثل تاريخ التصنيع ,المالك الحالي, بيانات البيع أو الايجار وما الى ذلك 
,فعندما تعمل مع فيجوال بيسك ,فانك ستستخدم خاصيات الكائنات من كلا النوعين سواء كانت المعنوية أو المادية(المرئية والغير مرئية). 

حدد الخاصية نص×ه] لأداة صندوق نصاه٣ا٣هء‏ ×0طا×٠ ٠‏ (وذلك بعد أن تضع أداة صندوق النص على الفورم وتجعله محدد dعأهعم‏ ]1 ) أسند النص () ×0طText My‏ 
0n 1‏ )وذلك باد خال هذا النص في الصندوق المجاور لاسم الخاصية, والخاصية »ه٣‏ للأداة هي النص الذي يظهر في الأداة (عنوان الأداة ١0أأمهء‏ ء'اه٣اأcon‏ eطth)ومعظم‏ 
الأدوات لديها الخاصية نص(y† Text proper‏ ( 

الموضع الذي بجانبها هو اlخاصية BackColor‏ اختارها بالفأرة ,يظهر E‏ مع سهم صغیر بجانب الإعداد الحالي للخاصية ,انقر هذا الزر سوف تری صندوق حوار مع ثلاث لوحات 
مرصوفةوطه )1۲66٥‏ وهي (مخصص Webıyy Custom‏ نظام System‏ )كما يظهر في الشكل(نافذة الخصائص) في صندوق الحوار هذا تستطيع أن تختار اللون الذي سیملاً 
خلفية الأداة ,ضع لون خلفية الأداة إلى أصفر سه ااهل ولاحظ أن مظهر الأداة تغير على الفورم. 


Properties | 
آ‎ 
Tase System aA Gas Forma TE obe چ‎ | 
| 
FycoessibleName ج‎ 
FccessibleRole Default E 
EH Appearance 
EEE N] r. 8 
Borderstyle Fred 
Cursor IJBearmı 5 
EH Font Microsoft Sans Serf, 8-25pt 
FereC ulus EE role Teaxl 
HEH Lines String] Array 
RightToLeft No 
ScrallBars Monc 
Text 
TextAlîgn Left 
LIseMfaitCairsnr False 
O Dehavîior 
Accepts RKet urn False 
fıccepts Tab False 
Alon Drop False 
Character asing Morrrral 
Context MenuStrip none] 
Enabled True 
HideSclccti on Trunc 
2 
Leama mB Hm cll ma Bai amademe أ‎ 
HackLolkor 
The background color of the component. 


Properties 
TextBox System MWindows.Formns-T extB oz 


ESE = 


cecessiTbleR ole 


Allow Drom 
Anchor 
Auto TCommplhlete Custom Source 
Auto Compl ete odie 
Auto CompleteSource 

EES EI] | now 
BorderSstyle 
TCaussesWralicdlatiom 


EH MediumSseaGreen 
CTharacter Casing E Spring Green 


Context enuStrip' LDL I MAMintCreamı 

Cursor 1 I MediumSpringGreen 

Eile BEH MediumAaquamarine 

Kema beti EM Aciamarine 

EE Turquciss 

Fart EH LightSeaaz Green 

ForeCTColor EH medîumTurquroise 

Genera tehl oemnlber EN Dirist Gray 

a 5 چت چ ا‎ HEM PaleTurquoise 
mM T= 


Strimall Arraw 
a a 


The background color of the component. 


الشكل(15)نافذة الخصائص 

واحد من الإعدادات التي تريد تغيير ها هي الخطا١ه]‏ لأدوات متنوعة بينما تكون أداة النص ماتزال مختارة على الفورم أوجد الخاصية خط في نافذة الخصائص تستطيع الضغط على( 
إشارة +) في مقدمة اسم الخاصية ووضع الخواص المفردة للخط , أو تستطيع الضغط على زر التبديل هااا ءأومذاام لاستدعاء صندوق حوار النص ,هنا تستطيع إسناد خط الأداة 
ومميزاته ومن ثم تضغط ۸ه لإغلاق صندوق الحوار , اسند خاصية الخط لأداة صندوق النص×00ا×٠۲‏ إلى لاهط ,sأمامم‏ 14 ,ههه م۷) حالما تغلق صندوق حوار الخط فان 
الأداة على الفورم تعدل للإعدادات الجديدة 
توجد فرصة ذا ما كان الخط المسند لخاصية نص الأداة rex property‏ s'اcontro‏ غير مناسبة لاتساع الأداة عندما تحول الخط الجديد , اختار الأداة من على الفورم بالفأرة وسترى 
ثمانية مقابض5ءال 2٣‏ على طول محيط الأداة perimeter‏ ضع المؤشر فوق أي من هذه المقابض وسوق يعرض لك الشكل الذي يدلك على الاتجاه الذي تستطيع إعادة تحجيم الأداة 
اجعل طول الأداة مناسب لطول النص إذا كان عليك أيضا إعادة تحجيم الفورم اضغط في أي مكان على الفورم وعندما تظهر المقابض على طول محيطها اعد تحجيمها بالفأرة. 
بعض الأدوات مثل عط (أداة العنوان ) الزر ٣‏ ثااںط نوق الاختيار×0 C٥٥۸8‏ تدعم خاصية التحجيم التلقائي والتي تحدد فيما ذا كانت الأداة التي تم تحجيمها بشكل 
أوتوماتيكي تلاءم عنوانها ام 8 , TextBoxslsîl‏ بالإضافة إلى العديد ن الأدوات الأخرى لا تدعم الخاصیۂ Size‏ ہاں۸ التحجیم التلقائي فإذا حاولت جعل ارتفاع الأداة مناسب 
ccommodateولنص‏ متعدد الأسطر , سوف تدرك انك لاستطيع تغيير ارتفاع الأداة , بشكل افتراضي أداة صندوق النص ۲٠×80×‏ تقبل سطر مفرد للنص وعليك إعادة إسناد 
الخاصیة مہا ۔ن٤اںM‏ متعدد الأسطر إلی( صح ۵ںإ۲) من اجل إعادة تحجيم الأداة عمودي رااع |۷۵ 
ملاحظة : الحط هو مكون تصميم وبشكل مشابه للمستندات فان النماذج ( 10۲۳١58‏ )يجب إن تصمم بحذر وتتبع قواعد تصميم صفحة الطباعة فعلى الأقل عليك عدم استخدام عدد من 
الخطوط على نمانجك كما أنه ليس عليك تحميل نموذجك أكثر مما ينبغي ولن تستخدم أيضا النمط عارأء ١0ط‏ بشكل مفرطووعع×ه , لتتجنب تعديلات خاصية الخط لعدة أدوات غل 
الفورم سوف تقوم بإعداد خط الفورم أولا لان كل أداة يتم وضعها على النموذج ترث واو تقوم باشتقاق 5 inh‏ خط الفورم فإذا ما غيرت خط الفورم فان خطوط الدودات ستتغير أيضا 
تبعا لذلك,بشكل عام اختار الخط الذي يناسب الواجهة التي تصممها , في كل مرة تضيف نموذج جديد الى تطبيقك عليك في البداية أن تقوم بإعداد خاصية الخط الى نفس الخط الذي 
استخدمته في النماذج الأخرى لذلك فان كامل التطبيق سيكون لديه مظهر مناسب )0| ٤‏ عاءأوممء الخط هو العنصر الاساسي الاكثر اهمية فيما اذا كنت تصمم مستند او فورم 
فالمكونات المتنوعة للفورم يمكن أن يكون لديها حجم خط مختلف وحتى نمط خط مختلف مثل غامق او مائل(5ء ااه 001١ 0٣‏ )ولكن يجب ان يكون هناك عائلة خط مسيطرة على مظهر 
النوذج فعائلة النمط ٣2‏ هل۷6۲ تم تصميمها لعرض الوثائق على شاشة الكمبيوتر وهو خيار عام وهناك خيار أخر هام وهو أل S6306‏ وعائلة أنماط الخطوط الجديدة المقدمة بواسطة 
ويندوز فيستا خط الطباعة هوه لديه نمط تميز كتابة اليدري W8١۸‏ 4۸4" ويمكنك استخدمه في التطبيقات الرسومية graphical application‏ 
مركب التصميم الثاني الأكثر اهمية هو اللون ٣١اه‏ ولكن ليس عليك أن تکون مبدع ۷٤۲6ء‏ في مجال الألوان مالم تكن مصمم آي اقترح ان تستخدم الألوان الافتراضية واستخدم 
نفس الظلال للمكونات المختلفة ,لقد اصبح تصميم الواجهات الحديثة فرع معرفي جديد عأامأعواQ‏ 8۷" لتطوير التطبيقات ويوجد أدوات لتصميم الواجهات واحدها منصة التعبير التابعة 
لمیکروسوفت 0ال ں†؟ Microsoft sS Expression‏ والتي تمكن المصممين من تصميم الواجهة ع ه؟١‏ ها"¡ والمطورين من كتابة الكود , بدون قطع عمل أي منها بواسطة لأخر 
تستطيع إنزال إصدار تجريبي www. microsoft.com/expression jùa Expression ja‏ 1 
حتى لان لقد قمت بمعالجة الخصائص التي تحدد المظهر للأداة , الآن سوف تغير الخصائص التي تحدد لیس فقط المظهر ولكن أيضا وظائف ٣۸‏ ٥آ†عہں؟‏ الاأداة حدد الخاصية Multiline‏ 
والإعداد الحالي لها هو تعطيل عءاج۴ مدد قائمة الإعدادات الممكنة غیرھا إلى ۲٣٥‏ , (تستطيع أيضا تغير ها بواسطة الضغط المزدوج على اسم الخاصية ) وهذا الفعل هو ءئ6اووه)] عقدة 
اختيار والتي تتبدل بالضغط إلى (صح /خطأاً) ارجع إلى الفورم واختار الأداة ٠×80×‏ واجعلها طويلة كما ترغب . الخاصية ع ,|| )ں1 تحدد فبماذا الأداة ٣٥×8‏ تقبل سطر أو 
أكثر (إذا كانت الخاصية( ماج۴ = (Multiline‏ أو أكثر إذا كانت الخاصية (if Multiline = True)‏ ضع هذه الخاصية إلى صح ٥ر1۲‏ ارجع إلى خاصية النص ٠×‏ 1 واكتب فيها 
نص طويل , واضغط ٣ه"‏ ع ستقوم الأداة بتقسيم النص الطويل إلى عدة اسطر . إذا قمت بإعادة تحجيم الأداة فان الأسطر ستتغير ولكن كامل النص سيتناسب مع الأداة لأن خاصية التفاف 
النص للأداة WORDWR۸۴‏ هي ھںr)‏ اسند لھا ۵ج۴ لترى كيف سيتم تحويل النص على الأداة. 
أداة صندوق النص المتعدد الأسطر لديها خاصية شريط منزلقة عمودية 84۲ |ام لذلك يستطيع المستخدم إيجاد مقطع النص الذي يريده بسرعة وبسهولة , اوجد الخاصية 
er5‏ لداة ومدد القائمة الممكنة للإعدادات بواسطة الضغط على الزر الذي عليه إشارة السهم W١٥٣۲ه‏ وإعدادات هذه الخاصية هي ) None, Vertical, Horizontal, ad‏ 
)8B‏ والتي تعني (بدون» عمودي, أفقي ,كلاهما) على الترتيب. أسند لها اهءآا6۲/⁄, اكتب نص طويل جدا في خاصية النص لها وراقب كيف تعامل الأداة النص لا تستطيع زحلقة النص 
على الأداة وقت لتصميم , ولكن شريط الانزلاق يعمل كما هو متوقع وقت التنفيذ( سوف يزلف النص بشكل عمودي ) , تستطيع أيضا أن تجعل الأداة تملأ كامل النموذج , ابدأ بحذف جميع 
الأدوات الأخرى على النموذج والتي يمكن أن تكون قد وضعتها ومن ثم اختار صندوق نص متعدد !أuطر TextBox)‏ ineاtiاuص)‏ اوجد الخاصية)ء 00 في نافذة الخصائص 
Properties window‏ واضغط مزدوج على اسم الخاصية حتى تتغير إعداداتها إلى ملئ |۴ أداة النص ستقوم بملاً النموذج وتم تحجيمها على الفورم في كلا الحالتين وقت التصميم 
والتنفيذ. 

لتختبر سلوك الأداة وقت التنفيذ اضغط _ 5 ليتم ترجمة التطبيق وبعد عدة دقائق ستظهر النافذة المملئة بأداة صندوق النص على سطح المكتب, وهذا ما سيراه المستخدم لتطبيقك 
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Rearranging the IDE Windows 
Ms scwon as you place a control on the formn, the Toolbox retracts to the left edge of the designer. You con fx this 
rd or Le scree by Llckairg Lue Lor wilh Lhe pan bra lue Tool krox's Loulleat 

You can easily rearrange the warious windows that make up the IDE by mowing them around with the mouse. 
Mowe the pointer to a window's title bar, press the button, and movethe wndow around whıle holding the mouse 
button down. A window may not follow the mouse, because Ifts position is locked. In this case click the icon with 
the pin in the upper right corner of the اقم یدیا‎ to unlock its position and then move ft around with the mouse, 
ons with arrows appear on the screen, indicating the area 
windloms until the pointer hovers ower one of these buttons, 

e color. Find the desired doaclaing location for the uindoms and 
e pointer is not on top of an arrow, the window is not doclced; 
q window and you can mowc ft aroundl at will with your 


Rearranging the IDC Winelamws 
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on the screen by clicking the icon with the | = 
pin on the Toolbox"s toolbar. 
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pointer to a window's title bar, press the 
button, and rmowce thc ward ow: around 
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الشكل(16)أداة صندوق النص تعرض نص متعدد الأسطر 


إنشاء تطبيقك الأول في الفيجوال بيسك Creating Your First VB Application‏ 

في هذا الفصل تقوم بتطوير تطبيق بسيط لتوضيح ليس فقط تصميم الواجهة ولكن أيضا كتابة الكود خلف الواجهة , سنقوم ببناء تطبيق يسمح للمستخدم بإدخال اسم لغة البرمجة المفضلة 
وسيقوم التطبيق من التحقق من الاختيار, بشکل موضوعي ۷B‏ هي ذف في أعلى جميع اللغات الأخرى وسوف تتلقى التقييم الأفضل بينما جميع اللغات الأخرى ستتلقى نفس الدرجة وهي 
ا0و ولیس ۷/8 , أبدأً مشروع جديداعزهإم "٠W‏ واستخدم نفس الاسم الافتراضي Button öادÎJl TextBox ölدÎJ! g¦s Windows Applicatio0¬1‏ عل 
النموذج( ٣۲٥ا‏ ) استخدم الفأرة لوضع وإعادة تحجيم الأدوات علی الفورم كما يظهر في الشكل المرفق 


aH Language Form ج اا‎ 


Enter your favorite programming language 


Visual Basic 


MyTestApplication ll 


1 1 
E my 2 Wle have a winner! 


. الشكل (17)تطبيق بسيط والذي يعالج النص المدخل من قبل المستخدم 
أبدأ بإعداد خاصية الخط للفورم ۴0١١‏ إلى ام 9 ,الا 08و8 (سيغو, 9 نقطة) نظم وحجم الآدوات كما يظهر في الشكل السابق ومن ثم ضع أداة عنوان على الفورم وأسند في خاصية 


النص)×ه] النص التالي( مومuوہھا your favorite programming‏ Enter)سيتم‏ إعادة تحجيم أداة العنوان تبعا لعنوانها لان خاصية الأداة S17۴‏ 0 ل۸ هي 
صح( ٥ں‏ ۲۲) ,کلما حرکت الأدوات داخل الفورم سترى بعض الخطوط الزرقاء التي تصل حواف الأدوات e‏ عمل ترصیف للأدوات ne4واiاه‏ هذہ الخطوط تسمی خطوط 
الترصيف 5٠٣ا‏ مة"ء والتي تسمح لك بترتيب الأدوات على الفورم , الآن عليك إدخال الكود الذي يتحقق من لغة المستخدم المفضلة ,تطبيقات ويندوز مركبة من مقاطع كود صغيرة 


تدعى معالجات الحدثء ماله tممvم‏ والتي تستجیب إلى فعل معین مثل نقر الزر click of a طں†)٥ ٥‏ , اختیار قائnة‏ أمر the selection of a menu command‏ , النقر 

على صندوق اختیار ×0ط )ععمء ھ fه‏ )اا هطt‏ , وهكذا۔ . عندما ينقر المستخدم الزر,نريد أن ينفذ بعض الكود الذي يعرض رسالة ما. 

لإدخال بعض الكود خلف أداة الزر اضغط مزدو ج علی هذه الأداة وسترى نافذة كود التطبيق , والتي تظهر في الشكل الأسفل , سوف تری فقط تعریف الإجراء ,إذا کان سطر الكود طویل 
جدا دااتشتطيع تايه وذلك بإدخال خط منخفض ۸46۲5٥00۲8‏ في المكان الذي تريد قطع السطر عنده وبالتالي سيعتبر الفيجوال بيسك كلا السطرين سطر واحد أو خط کود واحد ,وبشکل 
تبديل الميزة التفاف النص_ مه۷۷۲ ۷/0۲١4‏ لمحرر الكود إلى 0٣‏ كما فعلت انا في الشکل المرفق من قائnة edit>advance>WOrd Wrap‏ . 


90 WindowsApplicalionl - Microsoft ¥Yisual Studio 
File Edit Wiew Project Build Debug Data Tools Test Window Help 
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Private Sub Button1 Click{ByVal sender As System.Object, ByVal & As System. 
EwentArg=] Handles Button1.Clictk 

E End Sub 
End Class 
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Ready 
الشكل(81)محرر الكود مالم‎ 
يفتح محرر الكود الأجراء الفرعي المحدد بالعبارات التالية:‎ 
Private Sub Button1 Click(ByVal sender As System.Object, _ 
ByVal e As System.EventArgs) Handles Button1.Click 


End Sub 
هط) العروة الأولى هي عروة مصمم نماذج‎ ۴١۲٠1.۷6 سترى ف أعلى لوحة اللوحة الرئيسية للمصمم عروتين مسماة بعد اسم الفورم وهي عروة [”gأئه0] ط1.۷١٠١١۴ وعروة‎ 
ويندوز (التي تستطيع بها بناء واجهة التطبيق بواسطة الأدوات المرئية) والثانية هي محرر الكود (التي بها تدخل الكود خلف الواجهة) في أعلى محرر الكود والذي رأيته في الشكل السابق‎ 
هناك صندوقي ترکیب الأول إلى اليسار ويحتوي على أسماء الأدوات التي بغلی الفورم والأخر الذي علی اليمين يحتوي على أسماء الأحداث لکل أداة معروفة, عندما تختار الأداة (أو أي‎ 
كائن بشكل عام)في القائمة التي على اليسار فان محتوى القائمة الأخرى التي على اليمين يعدل تبعا لهذه الأداة. لبرمجة حدث معين لأداة معينة اختار اسم الأداة في القائمة اليسارية (قائمة‎ 
الكائنات) واسم الحدث من القائمة التي علی اليمين(قائمة الأحداث) بینما یکون الزر 1 0۸) ں6 تم اختیاره في قائمة الكائنات ءا sاcمزط0 افتح قائمة الأحداثءاا ئأرم۴۷ لترى‎ 
طuا0۸ الأحداث التي يستجیب لھا الزر‎ 
لذلك عندما تضغط مزدوج على الزر الذي على الفورم سيتم أخذك إلى الإجراء الفرعي _0۸1)) ں8‎ 8)0١ الحدث )أا يحدث لأن يكون الحدث الافتراضي لأداة الزر اهرمع‎ 
هذا الإجراء الفرعي هو معالج الحدث والذي يتم استدعاؤه بشكل اوتماتيكي في كل مرة يحدث حدث ما . الحدث الذي يهمنا في مثالنا هو الحدث نقر أو )عام لأداة‎ وCاick‎ subroutine 
في كل مرة يتم فيها نقر أداة الزر على الفورم فان الأجراء الفرعي أا _1١0)ا ا8 يتم تفعيله , ليستجيب إلى حدث نقر الزر , يتوجب عليك إدخال الكود المناسب في‎ 8ا٥‎ ١1 الزر‎ 
. 6۷6 هذا الإجراء الفرعي , يوجد أيضا أكثر من 24 حدث لأداة الزر والأداة زراه٣ مء ١٥ا8 هي واحدة من أبسط الأدوات ,معظم الأدوات تعرف عدد كبير من الأحداث وأ"‎ 
تعريف معالج الحدث لايمكن تعديله ,وهذا التعريف هو الهإ اة" واء أو دليل معالج الحدث (أو المعاملات النسبية أ٣ هاوه التي يمررها الحدث إلى التطبيق) جميع معالجات‎ 
ع "اوه ٣هل "مء والذي هو كائن يمتل الأداة التي أطلقت الحدث , والمعامل‎ ١٤ الحدث في 2008 ۷/8 تمرر معاملان نسبيان كأ٣ "اواج 0ا إلى التطبيق وهما :المعامل النسبي‎ 
اوه ه الذي يعطي بمعلومات إضافية حول الحدث‎ 6١ النسبي‎ 


اسم الإجراء الفرعي مركب من اسم الأداة متبوعا بخط منخفض واسم الحدث ,هذا فقط الاسم الافتراضي وتستطيع تغيره إلى أي اسم تراه مناسبا( مثل موھ ںوھ ءاھ uا۾۴۷)‏ من أجل 
هذا المثال , ما يجعل الإجراء الفرعي معالج للحدث هو الكلمة المحجوزة وعال مج عند نهاية العبارة . الكلمة المحجوزة sهمالم‏ ج1 تخبر المترجم أي حدث هذا الإجراء الفرعي يقترح 
معالجته, ف )عiا©.۸1٥)t Bu‏ هو حدث نقر الأداة ۸1٥اں8‏ , فإذا ما كان هناك زر أخر على الفورم ,الأداة 8)02 عليك كتابة الكود للإجراء الفرعي الذي عليه معالجة الحدث 
Button. ick‏ ,كل أداة لديها العديد من الأحداث ,وتستطيع أن تزود كل أداة بمعالج حدث ما مختلف وحدث مصاحب لها(من مجموعة أحداثها),بالطبع لن نقوم ببرمجة كل حدث ممكن 
لكل أداة . 
إن الأدوات لديها سلوك افتراضي وتعالج الأحداث الأساسية الخاصة بها, فالأداة ٦٠×80‏ تعرف كيفية معالجة الضرب < keystrokes‏ على المفاتيح ,الأداة ٥)80>‏ ٠۸ع‏ (التي هي 
مربع بداخله علامة اختیار(صح)) تغیر الحالة وذلك بإخفاء أو إظهار علامة الصح (الاختيار)في گل مرة 5الت نقرها ,أداة شریط الانزلاق ScrollBar‏ تحرك مؤشرها في کل مره ة تضغط 
واحد من الأسهم عند كلا النهايتين , بسبب هذا السلوك الافتراضي للأدوات لا تحتاج إلى تزويدها بالكود من اجل أغلب أحداث الأدوات على النموذج(الفورم),إذا غيرت اسم الأداة بعد أن 
تكون قد أدخلت بعض الاكواد في معالج الحدث فان اسم الحدث الذي تم معالجته بواسطة الإجراء الفرعي سوف يتغير بشكل أوتوماتيكي , بينما اسم الإجراء الفرعي مهما يكن لن يتغير ,فإذا 
ما غیرت اسم الأداة ۸1 0)† 8u‏ إلى tt, Evaluate‏ فان عنوان الإجراء الفرعي سيصبح: 
Private Sub Button1_ Click(ByVal sender As System.Object, _‏ 
ByVal e As System.EventArgs) Handles bttnEvaluate.Click‏ 
End Sub i‏ 
أعد تسمية الإجراء الفرعي إلى وجب تحرير الكود لتغير اسم معالج الحدث , أنا قمت بتسمية الأدوات قبل إضافة أي كود للتطبيق إلذلك فان معالج الحدث الخاص بهم سيتم تسميته بشكل 
صح ,بشكل اختياري استخدام أسماء تخصصها نت لكل معالج الأسماء الافتراضية للأدوات التي وضعتها علی الفورم هي أسماء عامة وسوف تغير ها إلى شيء ما له معنى, ني عادة 
اسبق أسماء الأدوات بعدة أحرف والتي تدل على نوع الأداة )aٹJ (txt, Ibl, btn‏ متبو عة بأسماء لھا معنی, أُسماء مل eوھ‏ ںوہ 14× و ttn Evaluate‏ تجعل کكودك أکثر قابلة 
للقراءة ,انه تدریب جید أن تقوم بتغير الأسماء الافتراضية للأدوات حالما تضيف أدوات إلى الفورم فأسماء مٿل promote Jقرت ¥ Button1, Button2, Button3‏ ان تكون قابلة 
للقراءة في كودك , باستثناء هذا التطبيق فاني استخدمت أسماء أكثر قابلية للقراءة للأدوات التي استخدمت في باقي الكتاب 
دعنا نضيف بعض الكود إلى معالج الحدث )اع لأداة الزر 8u)٥١1‏ عندما يتم ضغط هذا الزر نريد أن نختبر النص في صندوق النص ,فإذا كان عأوج8 اهuءا۷‏ نعرض رسالة 
للمستخدم وإذا لم تکن كذلك نعرض رسالة مختلفة ادخل الأسطر المعروضة في القائمة التالية بين العبارتین طا ں؟ Private‏ و End Sub‏ (كامل القائمة معروضة هنا لإعادة كتابة 
العبارات الأولى والأخيرة) 
Private Sub EvaluateLanguage(ByVal sender As System.Object, _‏ 
ByVal e As System.EventArgs) Handles Button1.Click‏ 
Dim language As String‏ 
language = TextBox1.Text‏ 
If language = ’Visual Basic” Then‏ 
MsgBox(” We have a winner!”)‏ 
Else‏ 
MsgBox(language & ”is not a bad language.”)‏ 
End If‏ 
End Sub‏ 
إليك ما يعمله الكود في البداية يقوم نص الأداة ×0 e×†8‏ ۲ إلى المتغير ووو ه| والمتغير ماطهز ج۷ هو مكان محجوز في الذاكرة (0۸أأهعه|ا ۳"١‏ ه4”) والذي تخزن فيه القيمة. 
المتغيرات هي المكان الذي نخزن فيه نتائج الوسائط(معالات) لحساباتنا عندما نكتب الكود, يتم التصريح عن جميع المتغيرات بواسطة العبارة "أل ولديها أيضا اسم ونوع, تستطيع أيضا أن 
تصرح وتسند قيمة للمتغير موجوuومه|‏ بخطوة واحدة كما هو مبين في العبارة التالية: Dim language = TexB0x1.1 ex‏ 
سينشأً المترجم متغير نصي لان العبارة تسند نص الى المتغير (سوف ندرس مسألة الإعلان عن المتغيرات فيما بعد), ومن ثم يقارن البرنامج قيمة المتغير ماطهأ٣۷2‏ موعuو٣ه|‏ بالعبارة 
Bs‏ اهمuء۷iوبالاعتماد‏ على مخرجات المقارنة يعرض واحد من الرسالتين بنافذة صغيرة مع الزر )0 فقط (كما هو واضح في الشكل رقم 8) يستطيع المستخدمون عرض الرسالة 
ومن الضغط على الزر 0۸ لاغلاق صندوق الرسالة ,اذا كنت لا تعلم تركيب اللغة عليك ان تكون قادر على معرفة ما يعمله هذا الكود فلغة الفيجوال بيسك هي ابسط لغة مدعومة من قبل 
الفيجوال استوديو 2008 وسوف نناقش السمات المتنوعة لهذه اللغة بالتفصيل في الفصول اللاحقة, في الوقت الحالي عليك المحاولة على فهم عمليات تطوير تطبيقات ويندوز ,كيفية بناء 
واجهة التطبيق وكيفية برمجة الأحداث التي تريد ان يستجيب لها تطبيقك. الكود في تطبيقنا الأول عير نشيط بشكل كافياوںطهم ر٣۷6‏ . فإذا لم يدخل المستخدم نفس العبارة وبنفس التهجية 
الظاهرة في عبارة الكود فان عملية المقارنة ستفشل نستطيع تحويل النص الى حالة الأحرف الكبيرة ومن ثم نقوم بمقارنتها بالعبار ©8۸51 ۸1ل۷/|50 للخلص من الإختلاف في حالة 
الأحرف لتحويل العبارة إلى حالة الأحرف الكبيرة ة استخدم الطريقة كdهطأمص‏ erمممpله"‏ من فئة النص دهاع و٣5‏ التعبير التالي يعود بالنص المخزن في المتغير مومuوہها‏ 
variable‏ ویحولەه إلى الJaة‏ إٹکبير ةuppercase‏ ÎÛ>رزف language. ToUpper‏ 
سذأخذ أيضا بعين الاعتبار حقيقة أن المستخدم يمكن أن يدخل ۷⁄8 أو ,2008 ۷/8 في المقطع التالي سنقوم بتحسين تطبيقنا , في حالتنا يمكن أن نعرض أسماء لغات محددة (اللغات التي 
تهمنا) ونجبر المستخدم على اختيار واحد منها. واحدة من الطرق التي تستخدم لعرض عدد محدد من الخيارات هو استخدام اداة صندوق مركب×080ط" C0‏ في المقطع التالي سنعمل 
على تعديل م آ۷م تطبيقينا البسيط لذلك فان المستخدم ليس عليه ادخال اسم اللغة سنجبرهم على اختيار لغتهم المفضلة من قائمة لذا ليس علينا التقق من النص المدخل بواسطة المستخدم. 


ابداً مشروع جدید ( 012 2ءiاWindowsApp)‏ کما تعلمت سابقا , ولا تختار صندوق الاختیار Create Directory For Solu i0"‏ سنحفظ المشروع من خلا بیئة التطویر ۱2٤‏ 

حالما يتم إنشاء المشروع ,افتح قائمة ملفں مه" ه|ز۴ واختار |۸ مه5 لحفظ المشروع وعندما يظهر صندوق حوار حفظ المشروع انقر الزر موسم8۲ لاختيار المجلد الذي ستحفظ 

المشروع فيه اختار مجلد موجود أو انشيء مجلد جديد , افتح صندوق الأدوات واضغط مزدو ج على أداة صندوق المركب ×080ط۳ C0‏ سيتم وضع الأداة على الفورم والآن ضع أداة 

الزرہ ها8 على الفورم بحيث تبدو الفورم مثل الشكل(1,9) اسند النص.ءعءiه Ny ٤‏ مuatاvaع‏ إلى خاصية النص ×6 للزر 
کا 


a Formil لاد اک‎ 


Select your favorite programming language 


Jawa E 


C# 

wisual Basic 
Java 
Cobol 


Evaluate My Choice 


1 الشكل(1,9) عرض خيارات أداة الصندوق المركب×080 ط0٥٤‏ 
يتوجب علينا الآن مليء الأداة صندوق الاختيار بالاختيارات الممكنة ,اختار أداة >086ط C0‏ من على الفورم بواسطة الضغط بالفأرة عليها و اوجد الخاصية ك" 6إمن نافذة 
الخصائص إعدادات هذه الخاصية هي مجمع 0۸|أءمااهع والتي ت تعني أن الخاصية 5" ]| ليس لديها قيمة وحيدة فهي مجموعة من القيم (نصوص في حالتنا) اضغط زر التبديل وسوف 
ترى صندوق حوار مجمع النص كما يظهر في الشكل 


LL 


String Collection Edîtor آ2‎ 


Enter the strings in the collection (one per line]: 


++ 

C# 

Visual Basic 
Jawa 

Lobol 


۴ 


OK Lancel 


ر 
الشكل(10 <1( اضغط الزر بجانب الخاصية ك 6| للاأداة Comb080×X‏ لعرض مدیر Feyee‏ 


اللوحة الرئيسية لصندوق حوار مدير مجمع النص هي ×00 ×6 صندوق نص والتي تمكنك من إدخال البنود التي تريد إظهار ها في أداة الصندوق المركب×080ط١" C0‏ وقت التنفيذ ,قم 
بإدخال النصوص التالية واحد في كل سطر وبالترتيب الظاهر هنا : 
C++‏ 
C#‏ 
Visual Basic‏ 
Java‏ 
Cobol‏ 
اضغط الز ره لإغلاق صندوق الحوار , البنود لن تظهر ف الأداة وقت التصميم , ولكن ستراهم وقت التنفيذ , قبل تنفيذ البرنامج قم بإعداد بعض خاصيات الأداة صندوق النص ,قم بإيجاد 
الخاصية )xهt‏ له واكتب فيها النص التالي : (eو2مuوہaا your favorite programming‏ ectاse‏ )وهذه ليست بند من القائمة السابقة إنما هي النص والذي سيظهر بشكل أولي 
على الأداة. 
تستطيع الآن تشغيل المشروع وترى سلوك أداة الصندوق المركب ,اضغط ۴5 وانتظر عدة ثواني سيتم ترجمة المشروع وسترى نموذجه على سطح المكتب ,تستطيع اختيار بند من بنود 
الأداة إما بالفأرة أو بلوحة المفاتيح أو بضغط مفاتيح الأسهم للأعلى أو للأسفل لتنتقل ضمن قائمة البنود, اضغط المفتاح طه) لنقل التركيز إلى أداة الزر واضغط مفتاح 
المسطرة 462۲م (أو ببساطة انقر على أداة الزر ) نحن لم نخبر الزر ما عليه فعله عند الضغط عليه , لذا دعنا نعود لإضافة بعض الكود إلى المشروع , أوقف تنفيذ المشروع بالضغط 
على زر الإيقاف في شريط الأدوات ۲ه طاهه)(المربع الأسود ) او باختيار و”أووuطعل‏ مهاو<وںطعه من القائمة الرئيسية . عندما تظهر الفورم في وضع التصميم اضغط مزدوج 
على أداة الزر وسوف تفتح نافذة الكود , عارضة معالج حدث الضغط وهو فارغ, قم بادخال العبارات التالية بین end sub , Private Sub‏ 
Private Sub Button1 Click(ByVal sender As System. Object, _‏ 
ByVal e As System.EventArgs) Handles Button1.Click‏ 
Dim language As String‏ 
language = ComboBox1. Text‏ 
If language = ’Visual Basic” Then‏ 
MsgBox(We have a winner!”)‏ 
Else‏ 
MsgBox(language & ”is not a bad language.”)‏ 
End If‏ 
End Sub‏ 
عندما يتم عرض الفورم للمرة الأولى سيتم عرض نص لا يتطابق مع أي من اللغات المعروضة في الأداة C0080‏ نستطيع أن نختار بشكل مسبق واحد من البنود من ضمن كودنا 
عندما يتم تحميل الفورم فانه يتم إطلاق حدث تحميل كائن الفورم , اضغط مزدوج في مكان ما على الفورم وبالتالي فان محرر الكود سيفتح معالج حدث تحميل الفورم . 
Private Sub Form1 Load(ByVal sender As System.Object, _‏ 
ByVal e As System.EventArgs) Handles MyBase.Load‏ 
End Sub‏ 
ادخل الكود التالي لاختيار البند »اوت8 اعاءا/۷ عندما يتم تحميل الفورم. 
Private Sub Form1 Load(ByVal sender As System. Object, _‏ 
ByVal e As System.EventArgs) Handles MyBase.Load‏ 
ComboBox1.Selectedlndex = 2‏ 
End Sub 1‏ 
إن de>‏ اectedاSe‏ هو خاصية للأداة C0۳08‏ والتي تحدد البند المختار, تستطيع إسنادها إلى قيمة عددية صحيحة من ضمن كودك لاختيار البند على الأداة وتستطيع استخدامها 
لاستخلاص فهرس البند المختار في القائمة , فبدلا من مقارنة النصوص نستطيع ان نقارن الخاصية ×عل |٣‏ عءه ام6 بقيمة تطابق الفهرس لبند اوج8 |اهںوءأ/ بعبارة مثل التالية: 
If ComboBox1.Selectedlndex = 2 Then‏ 
MsgBox(’We have a winner!”)‏ 
Else‏ 
MsgBox(ComboBox1.Text & ”is not a bad language.”)‏ 
End If‏ 
الخاصية × لأداة >×ه08ط K0"‏ ترجع بالنص الموجود على الأداة ونستخدمه لطباعة اسم اللغة المختارة ,بالطبع إذا ما أدخلت أو حذفت بند من القائمة يتوجب عليك تحديث الكود طبقا 
لذلك, إذا نفذت التطبيق واختبرته ستدرك أن هناك مشكلة في أداة ComboBox‏ ,حیٹ أن المستخدم يستطیع إدخال نص جديد في الأداة والذي سیتر جم interpret‏ كلغة , بشكل 
افتراضي Îد\ComboBoxs‏ تسمح للمستخدم بكتابة شيء ما بالإضافة لاختيار بند من القائمة ,لتغير سلوك الأداة ,اختارها من على الفورم وأوجد الخاصية التابعة لها DisplayStyle‏ في 
نافذة الخصائص مدد قائمة الإعدادات الممكنة للأداة وغير قيمة الخاصية من (R٥۴0 0W N‏ إلى ST|-|اD(R0PDOWN‏ نفذ البرنامج مرة أخرى واختبره ,لقد أصبح تطبيقنا متين 
et)pr00۴ااuط‏ وهو تطبیق بسیط سوف تری تقنيات أكثر لبناء تطبيقات قوية وںطهع في الفصل الرابع. 


تحوي |٤‏ ل2008 Studio‏ اھuو۷‏ على عدد ضخم من المكونات ,وستأخذ منك وقت لاستعراض مكوناتها ومن المستحيل شرحها في فصل واحد لذا سنناقش أدوات خاصة ومن تم 
وخلال المواضيع المختلفة في الفصول اللاحقة سيتم تغطيت ما أمكن من هذه المكونات , البنود الأساسية التي سنستخدمها في الفصول القليلة القادمة هي بناء تطبيقات ويندوز بسيطة 


قوائم بيئة التطوير تزودك بالأوامر التالية والتي تقود إلى قوائم فرعية ,لاحظ أيضا أن معظم القوائم يمكن أن تعرض أيضا كأشرطة أدوات 2۲5 طاهه) وليس كل الخيارات متاحة في كل 
الأوقات فالخيارات الغير المتاحة للوضع الحالي من بيئة التطوير هي إما غير مرئية أو غير ممكنة(معطلةلماطهوأل ) فقائمة تحرير اه" أله هي مثال نموذجي فتكون قصيرة تماما 


غندعا تكرن في وصح تريح الفورم وطويلة نوغا ما عندها تخر الكود, القائمة u٣عص‏ اوهل لا تظهر على الإطلاق altogether‏ عندما تفتح محررا لکود ولا تستطیع استخدام 
خيارات هذه القائمة عندما تكون في محرر الكود , إذا فتحت فتحت مستند1× في بيئة التطوير فان أوامر × ستضاف إلى قائمة فيجوال أستوديو الرئيسية 


قائمة ملف File Menu‏ 
تحتوي على أوامر لفتح وحفظ المشاريع أو البنود بالإضافة إلى أوامر لإضافة بند جديد أو موجود للمشروع الحالي جميع خيارات هذه القائمة معروفة للجميع وهي نفسها في معظم البرامج 
تقريبا بالإضافة إلى وجود الأمر ااج ه۷هء والذي يعمل على حفظ جميع مكونات المشروع الحالي ا ) استعرض هذه القائمة واستكشف ما تحويه من أوامر. 


Edit Menu رıرحت القائمة‎ 


من بين الأوامر التي تحويها هذه القائمة هي أوامر متقدمة لعء ه۷ له والأمر مء ه؟|||ه†م| كلا الأمرين يقودان الى قوائم فرعية ولاحظ ان هذين البندين مرئيين فقط عندما تحرر 
الكود وغير مرئيان أثناء تصميم الفورم 


الخيارات الأكثر أهمية لقائمة تحرير ومنها القائمة الفرعية 

E NARE SPACE‏ عرض مساحة فارغة ( محارف الفراغ e characters‏ الضرورية لترك فراغ لكود وجعله سهل القراءة ) والتي تستبدل بواسطة النقاط ومهم 
التفاف النصمهإW ۷٥۲١4‏ عندما يكون سطر الكود طويل ويزيد عن الطول في نافذة الكود فان الخطوط سوف تلتف بشكل آلي . 

جعل المختار تعليق / أو عدم جal‏ تJıق Comment Selection/Uncomment Selection‏ 

التعليقات هي سطور تقوم بإدخالها بين عبارات كودك لتوثيق تطبيقك , كل سطر يبدا بعلامة اقتباس مفردة هو تعليق ,وهو جزء من الكود ولكن المترجم يتجاهلها . بعض الأحيان نريد أن 
نعطل عدد من اسطر کودنا ولکن لا نحذفها(لأننا نرید أن يكون بمقدورنا استعادتها لاحقا ), التقنية البسيطة لتعطيل سطر من الكود هو جعله تعليق (وذلك بإدخال رمز التعليق أمام السطر). 
هذا الأمر يسمح لك بتعليق أو عدم تعليق مقاطع ضخمة من الكود بحركة واحدة(بضغطة مفردة) 


تقود القائمة مء |6١|!‏ < ع إلى قائمة فرعية ذات خمس خيارات والتي تم شرحها لاحقا , و المساعد الفوري (الميزة الذكية) هي ميزة لمحرر الكود (وتطبيقات ميكروسوفت 
الأخرى) والتي تعرض معلومات كثيرة قدر الإمكان عندما تكون متاحة, فعندما تكتب اسم لأداة وتتبعه بالنقطة فان المساعدة الفورية(الميزة الذكية)تعرض قائمة بخصائص الأداة وطرقها 
لذ ١‏ تستطيع اختيار الطريقة أو الخاصية المطلوبة , بدلا من تخمين اسمها ,عندما تكتب اسم الوظيفة وتفتح أقواس , فان المساعدة الفورية سوف تعرض تركيبة الوظيفة (معاملاتها النسبية 
sاrgumenه )its‏ القائمة الفرعية للمساعد الفوري تتضمر الخيارات التالية: 


عندما يتم تفعيل هذا الخيار(١٥٠‏ )فان محرر الكود يجدول جميع المكونات(الخصائص ,الطرق , الأحداث , وقائمة المعاملات النسبية)في قائمة منسدلة وسوف تظهر هذه القائمة عندما تكتب 
اسم الكائن أو الأدوات متبو عة بالنقطة. ون تم تستطيع اختیار المكون المطلوب من القائمة بوا الفأرة أو لوحة المفاتيح , دعنا نقول أن نموذجك يحوي أداة مسماة TextBox1‏ وأنت 
تكتب كود لهذا الفورم فعندما تكتب اسم الأداة متبو عا بالنقطة )٣٠×80×1.(‏ فان قائمة من مكونات أداة صندوق النص سوف تظهر كما في الشكل (1,11) 

بالإضافة إلى ذلك فان وصف المكون المختار يتم عرضه في صندوق أداة فائدة 0111p‏ کما یمکن أن تری في نفس الشكل اختار الخاصية )×ه) ومن ثم الإشارة ( =)متبو عة بنص 
موضوع ضمن علامتي اقتباس كما يلي: "6B XT YOU USE Name‏ إذا اخترت خاصية تقبل عدد محدد من الإعدادات فانك سترى أسماء الثوابت المناسبة في 
القائمة المنسدلة , إذا قمت بإدخال العبارة التالية سترى الثوابت التي تستطيع إسنادها إلى الخاصية (شاهد الشكل 1,12) 

TextBox1.TextAlign = 


مرة أخرى تستطيع أن تختار القيمة المطلوبة بالفأرة . تبقى القائمة المنسدلة مع مكونات الأداة أو الكائن (قائمة الأعضاء) مفتوحة حتى تضغط أحد مفاتيح الانهاء (المفتاح م5 أو المفتاح 
en‏ ) أو اختيار مكون بالضغط على مفتاح المسطرة أو ام 
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الشكل(1,11) عرض مكونات أداة ما في القائمة المنسدلة للمساعدة الفورية 
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الشكل(1,12) عرض الإعدادات الممكنة لخاصية ما في القائمة المنسدلة للمساعدة الفورية 


بينما أنت تحدث الكود تستطيع الانتقال بالمؤشر فوق المتغير أو الطريقة أو الخاصية وترى التصريح في صندوق أصفر بارز وتستطيع أيضا القفز إلى تعريف المتغير أو كتلة الإجراء وذلك 
باختیار 10۸ا|De۴1۸ ۲٦0‏ 60 من القائمة المنسدلة التي ستظهر اذا ضغطت يمين على المتغير أو اسم الطريقة في نافذة الكود 


هذه ميزة أخرى للمساعد الفوري ه5" ه۲8||15"| والتي تعرض معلومات الأوامر والوظائف عندما تقوم بكتابة فتح قوس (أي الرمز ( من القوس ) متبوعا باسم الوظيفةء مثلا المعاملات 
النسبية للوظيفة ستظهر في صندوق أداة فائدة ×0 م1 ٠٥٥1۲‏ (صندوق أصفر أفقي) المعامل النسبي الأول يظهر بخط سميك هط وبعد إدخال القيمة للمعامل النسبي الأول فان المعامل 
النسبي التالي يظهر بخط سميك, إذا ما كان معامل ما يقبل عدد ثابت من الإعدادات هذه القيم ستظهر في قائمة منسدلة كما شرحت سابقا . 


ميزة إتمام الكلمات تمكنك من إكمال الكلمة الحالية وذلك بالضغط على 2۲ طمهمء +|ع)٥‏ مثلا إِذا كتبت 1۴×18 ومن ثم ضغطت 2۲اه همء +ا۲)٥‏ سترى قائمة بالكلمات والتي 
تكون في الأغلب الأحيان ممائلة للكلمة التي تريد كتابتها مثل( 0×1 ٦٥×8‏ ,×ex†80ا(‏ 


هذا الأمر يفتح نافذة إدخال قصاصةاعممأ"S |٠56۲‏ في الموضع الحالي في نافذة محرر الكود ,قصاصات الكود ميزة هامة للفيجوال استوديو 2008 وقد نم مناقشتها لاحقا في هذا 
الفصل. 


۰ 
# 
۰ 
4 
4 
4 
3 
4 
۰ 
5 


التطبيقات العملية تحتوي كمية هائلة من الكود في عدد ضخم من معالجات الحدث وإجراءات مخصصة(إجراءات فر عية ووظائف) لتبسيط إدارة نافذة الكود فان القائمة الفرعية واہ نلاه 
تحتوي على أوامر والتي تقوم بتجميع ومد الإجراءات المختلفة,لنقول انك أنهيت من تحديث معالجات الحدث )زاح لعدة أزرار على الفورم , تستطيع تصغير عع لمع معالجات الحدث 
هذه إلى خط مفرد والذي يعرض أسماء الإجراءات و إشارة (+) أمامها ,تستطيع مد قائمة الإجراء في أي وقت وذلك بالضغط على إشارة(+) التي أمام اسمه .عندما تعمل هذا إشارة(- 
)تظهر أمام اسم الإجراء وتستطيع ضغطها لطي مءمهااهء كثلة الإجراء مرة أخرى . القائمة الفرعية و٠أ”iاأنام‏ تحتوي على أوامر لمعاملة الخطوط العريضة و٣اہااا‏ رام للإجراءات 
الموج ,أو تعطیل off)‏ )أل outlining‏ وعرض القوائم الكاملة لجميع الإجراءات . سوف تستخدم هذه الأوامر عند کتابة تطبیقات ذات كمية ضخمة ja substantial amount‏ 


۱ 


هذا الخيار يسمح لك بتغير نسق(نمط) الخطوط العريضة للإجراء الحالي فإذا كان تعريف الإجراء res dمfiہااا0 ١‏ ceduدrم‏ تم طيه فانه سيوسع الكود(يمدد) والعكس بالعكس. 


ة مفردة في كل فئة والملف المتعدد الفئات يتم تصغيره إلى سطر واحد 
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في كل فئة. 


هذا الخيار يعمل على تعطيل فعل الخطوط العريضة (طي/توسيع) ويضيف أمر جديد إلى القائمة الفرعية هو وا١‏ ااا Au ٣ها 0u‏ ه†S‏ والذي تستطيع ان تختاره لتفعيل ألية 
الخطوط العريضة مرة أخرى. 


هذا الخيار يعمل على تصغير القوائم إلى قائمة عناوين الإجراءات. 


٠ | 
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تحوي هذه القائمة على أوامر لعرض لي شريط أدوات أو نافذة لبيئة التطوير |20٤‏ وقد رأيت مسبقا قائمة شريط الأدوات uصع"‏ ك٣هطامه ٣‏ في مقطع " بداية مشروع جديد " أما نوافذ 
الأوامر الأخرى فإنها تقود إلى قوائم فرعية مع أسماء لبعض النوافذ القياسية , بما فيها نوافذ الإخراج والأمرsس0لnمWi utput and Command‏ ونافذة المخرجات هي تطبیق 
eامnsهع‏ حيث أن رسائل المترجم متلا يتم عرضها في نافذة الإخراج 0W‏ ل”|أW‏ الاما , نافذة الأمر تسمح لك بإدخال وتنفيذ عبارات عندما تعمل على تصحيح أخطاء 

تطبيقك ,تستطيع إيقاف التطبيق وتدخل عبارات ۷/8 في نافذة الأمر 
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تحتوي هذه القائمة على اوامر لإدخال بنود إلى المشروع الحالي والبند يمكن أن يكون(نموذج 0۲۳] أو لف file‏ , saرcomponentj‏ وحتی مشروع أخر زه another pr‏ )الخیار 
الأخير في هذه القائمة هو أمر خصائص المشروع كعاأاممهآ۴ اعهزهما۴ والذي يفتح صفحة خصائص المشروع, الأوامر Add Reference and Add Web‏ 
Referenceتسمح‏ لك بإضافة مراجع إلى مكونات ال 7 NE‏ ومكونات (.NET components and web components)بيترتll Je web dJ‏ 


تحتوي على الأوامر اللازمة لبناء(ترجمة) مشرو عك, الأمران الأساسيان في هذه القائمة هما بناء Q|أ8‏ وإعادة بناء الجميع Rebuild All‏ ,الأمر بناء يترجم(يبني الملف التنفيذي 
executable‏ ( لکامل المشروع ولکنه لا يترجم أي من مکونات المشروع والتي لم يتم تغيرها منذ البناء الأخير, أما الأمر إعادة بناء الكل ۸1 ۲1٥ Rمااuلأا ١‏ يعمل بالضبط ما يعمله 
ويبني الحل(المشروع ۸٥ا‏ ںام ٥ط)‏ ) من جذورہ. 
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هذه القائمة تحوي على أوامر لتشغيل أو إنهاء التطبيق بالإضافة إلى أدوات تصحيح الأخطاء الأساسية 


تحتوي هذه القائمة على الأوامر التي ستستخدمها مع مشاريع التي تتمكن من الوصول إلى البيانات,سترى كيفية استخدام هذه النافذة ف في الفصلين 22ر23 من هذا الكتاب. 


ا 
8 
$ 
6 
E:‏ 
Ê‏ 
¥ 5 
2 
١‏ 
3 
ع 


ز أو الويب (استعرض أوامرها البسيطة التي ڌ تستخدم لتنسيق الأدوات على الفورم) وهي غير مرئية عندما تعمل في محرر 


الكود.وأوامرها تطبق على العناصر المرئية لواجهة التطبيق. ‏ 


تحتوي على قائمة بأدوات مفيدة مثل الأمر 5هإ مج( برنامجا صغيرا لعملية معينة) والتي تقود إلى قائمة فرعية بالأوامر لإنشاء ومهم كما تعمل المايكرو في تطبيقات الأوفيس 
لتبسيط العديد من المهمات, تستطيع إنشاء ماكرو لأتمتة العديد من المهمات المتكررة والتي تنجزها في بيئة التطوير |0٤‏ الأمر الأخير في هذه القائمة هو الأمر خيارات ١١‏ 0اامه الذي 
يقود الى صندوق حوار الخيارات والذي فيه تستطيع بشكل كامل أن تخصص بيئة التطوير , الأمر وص٣‏ هاا ×مطامهآ مه۸ يمكنك من فتح صندوق حوار الذي بدوره يسمح لك من 
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هذه قائمة نموذجية لأي تطبيق ويندوز بالإضافة إلى قائمة فتح النوافذ تحتوي أيضا على الأمر H0‏ والذي يخفي جميع صناديق الأدوات تاركا كامل نافذة بيئة التطوير مكرسة 
مه لمحرر الكود أو لمصمم النماذج ,لا تختفي صناديق الأدوات بشكل كامل بل تنكمش 4هعهء)6 وتستطيع رؤية مقابضهم على الحافة اليمنى واليسرى لبيئة التطوير.لتوسيع 
صندوق الادوات فقط قم بأرجحة المؤشر على المقبض الموافق .corresponding tab‏ 


MSDN 


تحتوي على جميع الأدوات التي تستطيع استخدامها لبناء واجهة تطبيقك ععه؟6۲أ١|ً ١s‏ 0اأهءأام مهج وهذه النافذة في العادة تنكمش ١هء‏ ه6۲ وعليك تحريك المؤشر عليها لعرض 
صندوق الأدوات والأدوات تكون منظمة في مقابض متنوعة لذلك استکشف هذه الأنواع لتتعرف علی هذه الأدوات ووظائفهم ف في الفصول القليلة الأولى سنعمل مع الأدوات في التنظيم 
(الأدوات المشتركة و القوائم , الأشرطة (Common Controls and Menus & Toolbars tabs)(‏ 


تحتوي على قائمة بعناصر الحل الحالي والحل ١0انااهء‏ يمكن أن يحتوي على العديد من المشاريع وكل مشروع يمكن أن يحتوي على العديد من البنود , مستكشف الحل يعرض قائمة 
شجرية ءا اوع ههام بجميع المركبات المنظمة بواسطة المشروع ,تستطيع بضغط يمين على مكون للمشروع وتختار خصائصه من القائمة المنسدلة لترى خصائص المكون المختار 
في نافذة الخصائص,إذا اخترت مشروع ,سترى صندوق حوار خصائص المشروع, إذا كان الحل يحوي العديد من المشاريع تستطيع ضغط يمين على المشروع الذي تريد أن يصبح نموذج 
البداية (الإقلاع) وتختار Set As Startup Proje‏ تستطیع ایضا إضافة بنود إلى المشروع بواسطة الأمر"ه†| ۸۵0١‏ من القائمة المنسدلة أو إزالة احد المكونات للمشروع بالأمر 
Exclude From Project‏ هذا الأمر يزيل المكون المختار من المشروع ,ولكن لا يؤثر على مكونات الملف في القرص , الأمر ههام يزيل المكون المختار من المشروع وأيضا 
يحذف ملف المكون من القرص 


هذه النافذة (تعرف أيضا بمستعرض الخصائص 8۲0W58۲‏ 85ا6۲ م٠۴۲)‏ تعرض جميع الخصائص للمكون المختار وإعداداته في كل مرة تضع فيها أداة على الفورم تنتقل إلى هذه 
النافذة لتعدل مظهر الأداة ,ولقد رأيت مسبقا كيفية معالجة خصائص أداة ما من خلال نافذة الخصائص ,العديد من الخصائص تسند إلى قيمة مفردة مثل عدد أو نص. إذا كانت الإعدادات 
الممكنة لخاصية ما قليلة نسبیا ٥W‏ yام۷‏ اا ھام یتم عرضها کثوابت ذات معنی هام في قائمة السياق ,بعض الخصائص يتم إعدادها من خلال واجهات محكمة فمثلا خاصية اللون امع 
properties‏ يتم إعدادها من ضمن صندوق حوار اللون ×٥ط‏ وهاهاك ٣هاهع‏ والذي يتم عرضه من بشكل كامل في نافذة الخصائص, خصائص الخط يتم إعدادها من خلال صندوق 
حوار الخط المألوف ,المجمعات يتم إعدادها في صندوق حوار محرر المجمع Collection Editor Dialog box‏ والتي تستطیع فیها إدخال نص لكل بند للمجمع؛ كما فعلت مع بنود 
ComboBox al‏ ا في هذا الفصل ,إذا كانت نافذة الخصائص غير ظاهرة أو قمت بإغلاقها , تستطيع إما أن تختار عرض >۷٥ W‏ نافذة الخصائص س0ل Properties ۷١‏ ,أو 
أن تضغط يمين أي اداة على الفورم وتختار خصائص properties‏ أو تستطيع بسهولة الضغط على ۴4 لإحضار نافذة الخصائص ,في بعض الحالات عندما تغطي أداة ما بشكل كامل 
أداة أخرى ولن تکون قادرا علی اختیار هذه الأداة المخفية ت تحت الأداة التي تخطتها overlap‏ وعرض خصائصها في هذه الحالة تستطيع اختیار الأداة المطلوبة في الصندوق المركب 

C0١08 0×‏ الذي أعلى نافذة الخصائص ,هذا الصندوق يحتوي على أسماء جميع الأدوات التي توضع على الفورم,وبالتالي تستطيع أداة على الفورم باختيار اسمها في هذا الصندوق 


هذه النافذة هي المكان الذي فيه العديد من الأدوات ومن ضمنها المترجم ترسل مخرجاتها إليهاء في كل مرة يبدا التطبيق فان سلسلة من الرسائل يتم عرضها في نافذة المخرجات وهذه 
الرسائل يتم إنتاجها بواسطة المترجم, ولا تحتاج الى فهمها في الوقت الحالي ,إذا كانت نافذة المخرجات غير مرئية ,اختار عرض ۷1٥۷‏ > نوافذ أخرى > نافذة المخرجات ما0 من 
القائمة. 


بينما تجرب البرنامج,تستطيع قطع تنفيذه وذلك بإدخال ما يدعى بنقطة الإيقاف.أ”أمم۸هه۲ط عندما يصل تنفيذ التطبيق إلى نقطة الإيقاف فان تنفيذ البرنامج يتوقف مؤقتا dعلعموuكء‏ , 
وتستطيع تنفيذ عبارة ما في نافذة #أهأ١م"‏ | فأي عبارة تظهر في كود فيجوال بيسك تستطيع أيضا أن تنفذها في نافذة #أهال١ه‏ ".| لتقيم تعبير ما ,أدخل علامة استفهام متبوعة 
بالتعبير الذي تريد أن تقيمه كما في المثال التالي حيث أن االاوهم هو متغير في البرنامج الذي قمت بقطع تنفیذہ d‏ عام ںrr int‏ 

? Math.Log (35 

? ”The answer is ” & result. ToString 

تستطيع أيضا أن ترسل المخرجات لهذه النافدة من ضمن كودك بالطريقة أ۷ .وuطه0‏ والطريقة ٥‏ أاعااu9.WطهطD‏ . بشكل فعلي تستخدم هذه التقنية لتصحيح الأخطاء بشكل 
واسع وذلك بطباعة قيم متغير تم إنشاءه قبل الدخول حيز الخطر للكود . يوجد أدوات محكمة أخرى لمساعدتك في تصحيح أخطاء تطبيقك, ولكن طباعة القليل من القيم في نافذة 

nme diate‏ | هو تدریب قدیم a time-honored practice‏ (متمتع بقداسة القدم) في البرمجة في 8/ وفي العديد من أمثلة هذا الكتاب وخاصة في الفصول القليلة الأولى سأستخدم 
العبارة "٠‏ اهاز لطباعة شيء ما في نافذة عأهاك١م"‏ "| لتوضيح استخدام الوظيفة ١0اامن؟‏ ()0۴۴ ه0 مثلا سأستخدم عبارة مثل التالية: 

Debug.WriteLine(DateDiff(Datelnterval.Day, #3/9/2007#, #5/15/2008#)) 

عندما يتم تنفذ هذه العبارة فان القيمة 433 سوف تظهر في نافذة #أهاك١مص‏ .| هذه العبارة توضيح تركيب الوظيفة (فرق التاریخ ۸ 0ااہن؟ ()i۴۴هtم0)‏ والتي تعود بالفرق بين 
تاريخين بالأيام .وإرسال بعض المخرجات إلى النافذة #أةا١ه"‏ "| لاختبار وظيفة أو عرض نتيجة حسابات مباشرة هو تدريب معروف ,للحصول على فكرة عن مهمة(دلالة) 
functionality‏ النافذة wi nd0w‏ diate١مصم|‏ أقفل عائدا إلى تطبيق المثال الأول وأدخل عبارة مه بعد عبارة ۴| ٤٩‏ في erاhand Click event‏ معالج حدث ضغط الزر نفذ 
البرنامج ,واختار اللغة ,واضغط الزر على الفورم ,بعد عرض صندوق الرسالة ,سيصل التطبيق إلى عبارة الإيقاف وسيتم قطع تنفيذه 

وسترى نافذة عأها١م"‏ | أسفل بيئة التطوير |0٤‏ إذا كانت غير مرئية افتح النافذة uررم"‏ وuطءط‏ واختار !|nmediate > Windows‏ في نافذة dia†eمص"|‏ ادخل العبارة 
التالية : 

? ComboBox1.ltems.Count 

ومن تم اضغط "6١‏ ليتم تنفيذ العبارة السابقة,لاحظ أن المساعد الفوري ه5٠‏ ه؟||اع]"| موجود بينما تقوم بالكتابة في النافذة مأهأل١م"‏ "| .يطبع التعبير السابق عدد بنود الأداة 
اcontr ComboBox‏ (ل تقلق بخصوص العدد الهائل من الخصائص للأداة وللطريقة التي أحضرتهم بها هنا,لقد تم مناقشتهم بالتفصيل في الفصل السادس) حالما تضغط انتر فان القيمة 
5 ستطبع في الخط التالي . تستطيع أيضا معالجة الأدوات على الفورم من ضمن iافدö Immediate window‏ ادخل العبارة E‏ واضغط إنتر لتنفيذها: 

ComboBox1.SelectedIndex = 4 

البنود الخمس التي على الأداة سيتم اختيار ها (فهرسة البنود يبدا بالصفر0 ) ومهما يكن, لا تستطيع أن ترى تأثيرات تغيراتك لان التطبيق غير منفذ اضغط ۴5 لمتابعة تنفيذ التطبيق سترى 
أن البند اماه هو الآن في وضع الاختيار في الأداة .امإ†رco ComboBox‏ نافذة مdiat١مصn!|‏ ممكنة فقط بينما يكون تنفيذ التطبيق تم إيقافه مؤقتا 0٥ل"‏ ٠#مءاء‏ و¡ لتتابع 
التجريب عليه ,اضغط الزر الذي على الفورم للتحقق من اختيارك هءأمطء عندما يتم تنفيذ عبارة الإيقاف مرة أخرى ,ستيتم أعادتك إلى الناففö Immediate window‏ . 

نافذة الأمر س0wل” Command wi‏ غير مشابهة لنافذة مهال عص" | فنافذة الأمر متوفرة في وقت التصميم ٥(‏ | ٣وأوعل‏ اج عاطهاأج۷ه)نافذة الأمر تسمح لك من الوصول إلى 
جميع أوامر الفيجوال أستوديو وذلك بكتابة أسمائها في هذه النافذة ,إذا أدخلت النص الع متبوعا بالنقطة,سترى قائمة بجميع أوامر القائمة أل ,متضمنة تلك التي تكون غير مرئية في 
الوقت الحالي,وتستطيع تنفيذ أي من هذه الأوامر وتمرير معاملات نسبية لها.على سبيل المثال إذا أدخلت ”وا ه۸” ۴٣٩4‏ .٤ع‏ في نافذة الأمر ومن ثم ضغطت إنتر فانه سيتم إيجاد 


ت 


النسخة الأولى من النص ”اوه في نافذة الكود المفتوح ,لتشغيل التطبيق تستطيع كتابة ebu. Š4)‏ تستطيع إضافة مشروع جديد للحل الحالي بالأمر زه ۸0٩۵۴‏ وهكذا. معظم 
المطورين وحتى بالكاد را١2۲۵"‏ يستخدمون هذه النافذة وقت التصميم أو وقت التنفيذ وتصحيج Îlخطlء in designing or debugging applications‏ 


هذه النافذة يتم تعبئتها بواسطة المترجم برسائل الخطأ إذا لم تنجح عملية ترجمة الكود. تستطيع ضغط مزدوج على رسالة خطأ ما في هذه النافذة وستأخذك بيئة التطوير D€‏ إلى السطر 
الذي فيه عبارة الخطأً والتي ستقوم بإصلاحها, بدل اسم الوظيفة MsgBox() function‏ إلى .()×80وءء( حالما تغادر السطر الذي فيه الخطأً فانه سيتم وضع خط أحمر متعرج تحت 
اسم الوظيفة ٠٣ا ۲6١‏ yاوواس‏ الوصف التالي للخطأً سيظهر في نافذة قائمة الخطاً 

Name ’ MssgBox ’ is not declared 

Setting Environment Options 


بيئة التطوير للفيجوال أستوديو قابلة للتخصيص بشكل عالي .سأريك كيف تقوم بتغير الإعدادات الافتراضية لبيئة التطوير , افتح القائمة أدوات uں٣ع"‏ ءامه۲ واختار ٣s‏ ٥اام‏ 0 (البند 
الأخير في القائمة) وبالتالي يظهر صندوق حوار الخيارات Options‏ والذي به تستطیع إعداد جمیع الخيارات ت تبعا للبيئة »> الشكل(13 <1( يظهر خیارات خطوط بنود بيئة التطوير المتنوعة 
,هنا تستطيع إعداد الخط لمحرر النص,صناديق الحوار ,صناديق الأدوات,وهكذا ,اختار بند ما في الشجرة في قائمة اللوحة اليسارية ومن ثم اسند الخط لهذا البند في الصندوق الأسفل 

الشكل (14ء1) يظهر خيارات المشروعات والحلول يدل الصندوق العلوي على المكان الافتراضي للمشروع جديد ,حفظ المشروعات الجديدة عندما يكون صندوق الاختيار إd٥إCrea‏ 
×60 اععمع يحدد فيما إذا المحرر سيقوم بإنشاء مجلد في مجلد المؤقت ههام م" "٠‏ . المشاريع في المجلد المؤقت ستتم إزالته ieدla‏ تشخJ) run the Disk Cleanup utility‏ 
t0 cاaim more space‏ ) أداة منظف القرص لتوفير مساحة أكبر على سواقتك . بشكل افتراضي 5 بحفظ التغيرات للمشر وع الحالي في كل مرة تضغط ۴5 تستطيع تغير هذا 
السلوك بواسطة إعداد الخيار وال اا8 هإه۴ ه8 (قبل التنفيذ أو البناء)في الصفحة Build And Run page‏ (بناء وتنفيذ)تحت liji Project And Solutions branch‏ 
ما غيرت هذه الإعدادات يتوجب عليك حفظ مشروعك من وقت لأخر من القائمة ملف ما۴ >الأمر حفظ الكل( (Save All‏ ذا أردت تغير الإعدادات الافتراضية لبيئة التطوير فهذا هو 
المكان المناسب لذلك. 
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الشكل(1۰14)خيارات المشاريع والحلول 


بناء تطبیقات ماهیہهع 


Using Code Snippets درڍكll استخدام قصاصات‎ 


تأتي الفيجوال أستوديو2008 مع الكثير من قصاصات الكود المعرفة مسبقا لأفعال مختارة» وتستطيع إدخال هذه القصاصات في كودك إذا احتجت لذلك,لنقول انك تريد إدخال عبارات 
لكتابة بعض النصوص إلى ملف ,ولكن ليس لديك فكرة عن كيفية الوصول إلى الملف ,قم بإنشاء سطر فارغ في الكود (اضغط المفتاح اتشر مرتين في نهابة نظر الكود) ومن ثم افتح قائمة 
تحرير اكه واختار مءہمS؟S|اامtما‏ > tممSnip‏ اهما ( أو اضغط يمين في السطر الفارغ الذي أنشأته في نافذة محرر الكود ومن القائمة الinږدJة‏ |ختlر Insert Snippet‏ 
)سترى على الشاشة قائمة بالقصاصات منظمة في ملف تبعا لوظائفهم هنع مں؟ ) كما في الشكل (117)اختار المجلد ٣#لاه؟‏ واا مهه f‏ والذي سيعرض قائمة خيارات أخرى 


°0" "0١ اضغط مزدوج على البند ۳ءء هاا لترع قائمة بالمهمات المشتركة المرتبطة بالملف‎ coاا‌ections‎ and arrays, data types, file system, and math 
من القائمة واضغط مزدوج عليه لإدخال القصاصة المناسبة في الموقع الحالي من نافذة الكود.‎ Wit ۲× ٠١ ۸ ۴ا٥ حدد البند‎ اه-related‎ tasks 

العبارة التالية من قصاصة الكود سيتم إدخالها في الكود 

My.Computer.FileSystem.WriteAllText("C:\Test.txt", "Text", True) 
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الشكل(16١1)‏ قصاصات الكود منظمة تبعا لوظائفها 
بعض النصوص إلى الملف عليك استدعاء الطريقة WriteAll Text method‏ للكائن My. Computer . Filesystem‏ تستطیع استبدال النصوص الظاهرة في القصاصة 
بقيم فعلية, فالنص الأول هو اسم الملف "»†.ئ li( "Cc: |٣6‏ النص الثاني" "۲٠×‏ فهو النص الذي ستتم كتابته إلى الملف والمعامل النسبي الأخير rumen‏ للطريقة يحدد فيما إذا سيتم 
تزیل (إلحاق) النص إلى الملف (إذا كانت هءاه۴ إ¡) أو سيتم الكتابة فوق أي نص موجود إذا کات Tie‏ ۴|) . القصاصات تريك العبارات الأساسية من أجل انجاز المهمات المشتركة 
العامة )ئها nمصهء‏ وتستطيع تحرير وتحديت الكود المدخل بواسطة الفيجوال أستوديو اذا احتاج الأمر لذلك. التطبيق الحقيقي يمكن أن يطلب من المستخدم اسم الملف بواسطة 
صندوق الحوار المعروف للملف ومن ثم يستخدم اسم الملف المحدد بواسطة المستخدم في صندوق الحوار ,بدلا من اسم الملف الجامد جامد المزر باط الكود. 
aT r ٠‏ ۴ 
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E CI1ass Determine If a Folder Exists 


Determine the Size of a File 

Enumerate the Dries on a Computer 
Find Amount of Disk Space Available 
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Move Files 

Read a Binary File 

Read a Delimırted Text File 

Read a file in the My Documents folder 
Read Text from a File 
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الشكل(1417) اختيار قصاصة الكود لإدخالها في كودك 
عندما تبرمج ,عليك محاولة استكشاف فيما يوجد قصاصة للمهمة التي تبرمجها معدة للاستعمال, في بعض الأحيان تستطيع استخدام القصاصة بدون حتى معرفة كيف تعمل ,على الرغم من 
أن القصاصات تبسيط الأمور ,إلا أنها لن تساعدك على فهم منصة العمل (Framework)‏ والتي ستناقش في التفصيل في هذا الكتاب. 


من المحتمل انك لاحظت أن قصاصة الكود في الفيجوال أستوديو تستخدم كينونة تدعى 1¥ والتي هي كائن خاص تم تقديمه بواسطة 2005 ۷/8 لتبسيط العديد من مهام البرمجة , وكما 
رأيت الكائن ,1 (خاصتي)يسمح لك بكتابة بعض النصوص إلى ملف ما بعبارة مفردة ,فالطريقة ١۸0٤ع" ۸||١٠×٤‏ ۷ إذا كنت تعرف الإصدارات السابقة من الفيجوال بيسك فأنت 


تعلم انه عليك فتح ملف أولا ومن ثم كتابة بعض النص إليه , وأخيرا إغلاق الملف ,الكائن 1¥ يسمح لك بإنجاز كل هذه العمليات بعبارة وحيدة, كما رأيت في المثال السابق,ومثال أخر : 
الطريقة كماع" ها۴ التي تسمح لك بتشغيل ملف ويف عاأ؟ ۷۸۷ من ضمن كودك: 

My.Computer.Audio.Play(’C:\Sounds\CountDown.wav”) 

تستطيع استخدام التعبير التالي لتشغيل ملف صوت النظام: 

My.Computer.Audio.PlaySystemSound(System.Media.SystemSounds.Exclamation) 

فالطريقة التي تشغل )kعهط‏ وروهام الصوت هي الطريقة ٧١هام"‏ روا۴ والطريقة التي تكتب نص إلى ملف هي ۵٥۸٣ع Wit A۱۲ ٥×٤‏ ولکن مھما یکن لا تستطیع استدعائھم 
مباشرة بالکائن هزه My‏ فهم ليست بطرق له , فإذا كانت كذلك عليك التنقيب بعمق لاكتشاف الطريقة التي تحتاجها, الكائن اععزطاه ل" يعرض ستة مكونات والتي تحتوي بدورها 
على مكوناتها الخاصة إليك شرح المكونات الأساسية للكائن ر والوظيفة التي تتوقع إيجادها في كل مكون : 


مكون التطبيق يزود بالمعلومات حول التطبيق الحالي فالخاصية Command LineArgs propery‏ ل icationاApp My.‏ تعود بمجمع نصي والذي هو المعاملات النسبية الممررة 
إلى التطبيق عندما تم تشغيله » فتطبيقات ويندوز النموذجية لا يتم استدعائها بالخاصية كا" ع" »اوه "٥‏ iا-۵٣2مصصمه‏ ولكن من المحتمل تشغيل تطبيق ما وتمرير اسم الملف كمعامل 
نسبي للتطبيق (مثال المستند الذي سيتم فتحه بواسطة التطبيق) . الخاصية ۷أ6۲م١۲م |٣١‏ هي كائن يعرض الخاصيات متل 1ة ۲۷۴هاء م0( مجلد التطبيق الافتراضي), اسم المنتج 
Product Name‏ ,الإصدار Version‏ وھكذا . 


هذا المكون للكائن 0y‏ يعرض الكثير من المهمات بواسطة عدد من الخصائص , والعديد منها هي كائنات, فالمركب 0اك 16۲.۸0 1¥.©07١6‏ يسمح لك بتشغيل الأصوات والمكون 
ipboardا€0mputer.C Ny.‏ يمكنك من الوصول إلى الحافظة لاستكشاف فيما إذا كانت الحافظة تحتوي على نوع معين من البيانات , استخدم الطرق Contai١s16×†,‏ 
ContainsData, and ContainsAudios Containslmage,‏ , واستخدم اإنٹطظرقJ Get ext, Getlmage, GetData, and GetAudioSream‏ لاستخلاص محتوی 
الحافظة . افترض أن لديك نموذج مع أداة صندوق نص وأداة صندوق صورة×۲۵80 ں٥۴‏ تستطيع استخلاص بيانات النص أو الصورة من الحافظة وعرضها على الأداة المناسبة وذلك 
باستخدام التعبير التالي: 
If My.Computer.Clipboard.Containslmage Then‏ 
PictureBox1.lmage = My.Computer.Clipboard.Getlmage‏ 
End If‏ 
If My.Computer.Clipboard.Contains Text Then‏ 
TextBox2.Text = My.Computer.Clipboard.Get Text‏ 
End If‏ 


ربما لاحظت أن استخدام الكائن في كودك يحتاج إلى كتابة عبارات طويلة . تستطيع تقصير هذه العبارات بشكل جوهري باستخدام العبارة )۷ كما في المثال التالي : 


With My.Computer.Clipboard 
If .Containslmage Then 
PictureBox1.lmage = .Getlmage 
End If 
If .Contains Text Then 
TextBox2.Text = .GetText 


End If 
End With 
وذلك بتخصيص اسم الطريقة مسبوق النقطة كما‎ [0٤ فعندما تنفذ العديد من العبارات على نفس الكائن تستطيع تخصيص الكائن بواسطة العبارة 018ا واستدعاء طرقها في بلوك العبارة‎ 
E٤ ۸d W۸ في المثال السابق ,وعبارة تكون متبو عة باسم الكائن والذي عليه تطبق كل الطرق اللاحقة , ویتم إنھائھا بالعبارة‎ 
توجد خاصية أخرى لمكون وهي الكائن 6۳ء5 |ز۴ والذي يعرض جميع الطرق التي تحتاجها للوصول إلى الملفات والمجلدات. فإذا أدخلت:‎ 


, DeleteDirectory sı DeleteFile تج‎ li jay File System متبوعا بنقطة سترى جميع الطرق المعروضة بواسطة المكون‎ My. c0mputer.F۴İleSystem 
فتركيب‎ ٠٥0١٣ اختار الطريقة ومن ثم اكتب فتح قوس سترى تركيب الطريقة في أداة الفائدة مأ‎ , Write ext, ReadAl Text RenameDirectorys RenameFile 
: الطريقة ٥اأ۷۴رمه٥ هو كما بلي‎ 
My.Computer.FileSystem.CopyFile(sourceFileName As String, destinationFileName As _ String,overwrite As Boolean) 
يحدد فيما إذا الطريقة ستكتب فوق الملف المقصود إذا كان موجود, الإصدار الثالت من الطريقة يقبل معامل نسبي ثالث والذي يحدد فيما إذا آلية‎ ver rite argument المعامل النسبي‎ 
النسخ العادي ١0أأة" ا٣ج ۷مم امuوu سيتم عرضها بنفس تنسيق الملف الذي تم نسخه Q١عاأمهء و”اعط وا هاا؟ مط sه,الإصدارات المتنوعة لنفس الطريقة تختلف في العدد و/أو‎ 
کک الطريقة, فبدلا من استخدام أسماء طرق متعددة لنفس العملية الأساسية , نماذج إعادة التعريف للطريقة‎ forms انوع في معاماما وهذا ما یدعی إعادة تعريف‎ 


هذا المكون يسمح لك بالوصول لنماذج (0۲5؟) التطبيق الحالي ,وتستطيع أيضا الوصول إلى نماذج التطبيق الحالي بواسطة الاسم ,لذا فان مكون الفورم ليس المكون المفيد كثيرا. 


هذا المكون يسح لك بالوصول إلى إعدادات التطبيق ,وهذه الإعدادات تطبق على كامل التطبيق وتخزن في ملف تركيبي(!إعداد) عاا؟ an XML configura ٥٩‏ من نوع "× یتم إنشاء 
الإعدادات من ضمن الفيجوال أستوديو وأنت تستخدم | لمكون sو٣‏ |56 لقراءتها. 


هذا المكون يعود بالمعلومات حول المستخدم الحالي, الخاصية الأكثر أهمية لمكون المستخدم(٤/٥١0م ٥0"‏ إهءل )هي الخاصية رمدم اCurrentPrincipa‏ والتي هي کائن يمثل 
وثائق(اعتمادات) ءاهاا هلهم المستخدم الحالي. 


يمٽل خدمات الويب المقدمة بواسطة التطبيق الحالي. 
إن الكائن يمنح المبتدئين قوة غير مسبوقة ويسمح لك بانجاز المهمات التي تتطلب كود ضخم إذا ما عالجتها باستخدام إصدارات سابقة من اللغة ,هذا بغض النظر عن عملية البحث والتي 
ستستغرقها في إيجاد الطرق المناسبة في منصة عمل )هسه ه۴۴. تستطيع استكشاف الكائن 1y‏ بنفسك وتستخدمه كلما احتجت لذلك, إن My‏ ليس البديل عاں†ااواناء عن تعلم اللغة 
ومنصة العمل Framework‏ فھي تستطیع مساعدتك بشکل أولي , ولكن لا تستطیع الذهاب بعيدا بدون تعلم طرق Etatewêrk‏ لمعالجة الملفات أو أية ميزة أخرى , دعنا نقول انك 
تريد إيجاد جميع الملفات من نوع معين في مجلد ما, ومن ضمنها المجلدات الفرعية .عملية مسح المجلد ومجلداته الفرعية عند أي مستوى هي مهمة كاملة بحد ذاتھا,(ستجد الكود في الفصل 
5) تستطيع فعل نفس الشيء بعبارة وحيدة باستخدام الكائن My‏ : 
Dim files As ReadOnlyCollection(Of String)‏ 
files = My.Computer.FileSystem.GetFiles("D:\Data", True, "*.txt")‏ 


الطريقة 66۴85 تملا مجمع الملف ١0اععاام‏ هاا بأسماء المسارات ومصه ”اهم للملفات النصية في المجلد هأة0:1|0 ومجلداته الفرعية, ولكن مهما يكن فهي لن تساعدك إذا 
أردت معالجة كل ملف في مكانه, وأكثر من ذلك هذه الطريفة85]¡ 66۴ هي عملية متزامنة(تحدث في نفس الوقت usام‏ مه۲ آء"/ء)فإذا كان المجل يحوي عدة مجلدات فرعية مع العديد 
من الملفات ستثبط()ه|ط) الواجهة حتى يتم استخلاص كافة الملفات ,في الفصل 15 سترى الكود الذي يستخلص أسماء الملفات ويضيفها إلى أداة كلما تقدمنا إلى الأمام . 

إذا كان لديك معرفة مسبقة بالفيجوال بيسك ربما تظن أن الكائن لإ هو مساعدة للمبتدئين تماما أو الغير مبرمجين, وهذا ليس صحيحا ,فالفيجوال هي تقريبا لغة خصبة (ذات قابلية للإنتاج 

(productivity‏ والکائن ١y‏ يساعدك لأن تكون أكثر قابلية للإنتاج في مهماتك اليومية , بغخض النظر عن معرفتك باللغة أو مهارات البرمجة.فإذا كان بإمكانك استخدام My‏ لحفظ العديد 

من العبارات(أو العديد من حزم العبارات) افعل ذلك, فلا يوجد حظر راج هم على استخدام الكائن ١y‏ لأن المترجم يستبدل طرق هذا الكائن بالطريقة المكافئة المدعوة في (منصة العمل) 
Framework‏ 


الفصل الثاني (2) 


المتغيرات وأنواع Variables and Data Types ill‏ 
هذا الفصل والذي يليه يناقش أساسيات أية لغة برمجة (المتغيرات وأنواع البيانات ) فالمتغيرات تخزن البيانات التي يتم معالجتها بالعبارات 'والبرنامج هو قائمة من العبارات التي تعالج 
المتغيرات,وحتى لكتابة تطبيقات بسيطة تحتاج إلى فهم جوهري لبعض المواضيع القاعدية ,مثل أنواع البيانات( نوع أو صنف البيانات التي تستطيع تخزينها في المتغير) ومجال (#مهمء ) 
وعمر المتغير( 6 1اه؟|ا) وكيفية كتابة الإجراءات وتمرير المعاملات النسبية لها, في هذا الفصل ستستكشف الأنواع الأساسية للفيجوال أستوديو وفي الفصل اللاحق ستتعلم الإجراءات 
وعبارات تحكم التدفق (الانسياب) 
في هذا الفصل ستتعلم كيفية عمل التالي: 
التصريح (الإعلان ) واستخدام المتغيرات 
استخدام أنواع البيانات الأصلية ع۷اأه" 
إنشاء أنواع بيانات مخصصة 
استخدام المصفوفات arrays‏ 


SSS 


للمتغير اسم وقيمة فالمتغیر ۳٥‏ ۵٣۲٥ءل‏ مثلا يمكن أن يكون لديه القيمة (أحمد) والمتغیر ٣‏ uهم‌یا‏ يیمکن أن تكون قيمته 0.35 إن ۳"۴ 2٣۲٥ءل‏ و Discoun†‏ هي أسماء 
المتغيرات و ((أحمد) و0.35) هي قيم المتغيرات (أحمد) هو نص (والذي هو نص أو قيمة ترقيم هجائي(حرفي) ء8" ۸4۸1م |ه) والقيمة 0.35 هي قيمة رقمية ,وعندما تكون قيمة 
المتغير نصية يجب أن تضمن ضمن علامتي اقتباس(" ") في كودك , بإمكانك أن تشير إلى قيمة المتغير بواسطة اسمه ,هذا بالإضافة إلى اسم المتغير وقيمته ,المتغيرات لديها نوع البيانات 
,التي تحدد ما هو نوع القيم التي نستطيع أن نخزنها في المتغير , تدعم الفيجوال بيسك 2008 العديد من أنواع البيانات' التي هي في الواقع لغة التنفيذ المشتركة ٤٣0۳" ۳"0١‏ 
Language Runtime (CLR)‏ التي تدعم أنواع البيانات, فهذه البيانات مشتركة لجميع اللغات وليس فقط للفيجوال بيسك . إن نوع البيانات لمتغير ما يتم تحديدها عندما يتم الإعلان 

1 عن المتغير ؤسوف تصرح دائما عن المتغيرات قبل استخذامها ,للتصريح عن متغير ادخل العبارة "01۳ متبوعة باسم المتغير والكلمة المحجوزة 5 ومن تم نوع المتغير . 


Dim Amount As Decimal 
إن أة ا566 هو نوع بيانات رقمية والتي تستطيع أن تخزن كلا من قيم الأعداد الصحيحة #۲وهtم| والغير صحيحة ١#وها”أمهم فمثلا العبارة التالية تحسب وتعرض الحسم للكمية‎ 
افتح مشروع جديد و أضف إلى الفورم فقط زر ١٥ط واضغط مزدوج على الزر ليتم فتح محرر الكود والذي ينقلك مباشرة إلى حدث معالجة نقر الزر وفيه اكتب العبارات‎ 0 
: التالية كما هو مبين أدناه‎ 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_ Handles Button1.Click 
Dim Amount As Decimal 
Dim Discount As Decimal 
Dim DiscountedAmount As Decimal 
Amount = 24500 
Discount = 0.35 
DiscountedAmount = Amount * (1 - Discount) 
MsgBox("Your price is $" & DiscountedAmount. ToString) 
End Sub 
ربما يكون المترجم قد وضع خط متعرج احمر تحت العبارة التي تسند القيمة 0.35 إلى المتغير† مء وولد رسالة خطاً لعرض رسالة الخطاً حرك المؤشر فوق المقطع الذي تحته‎ 
كأ ا٣ء ١امه ) ولكن بشكل افتراضي فان هذا الخيار يكون معطل(۴fه ), المترجم يعامل sهه] أية قيمة رقمية مع‎ 0١( خط , هذا الخطاً سيحدث فقط إذا كان خيار التدقيق مفعَل‎ 
جزء كسري على أنها قيمة مزدوجة(عںاج۷ مااuه0) ويفهم(يضبط) على أنك تحاول إسناد قيمة مزدوجة عاطم إلى متغير عشري اه" آعم . لتحويل القيم العددية إلى النوع‎ 
Discount = 0.355 عشري همر اج" اعم استخدم التمثيل التالي‎ 


كما سترى فيما بعد الحرف 0 عند نهاية القيمة الرقمية يدل على أن القيمة ستعامل كقيمة عشرية , يوجد أيضا العديد من الحروف النو عية (١5إع†عج۲هاء‏ ممر]) راجع الجدول المرفق › 
لقد استخدمت نوع البيانات العشرية هنا لأنها تستخدم بشكل عام في الحسابات التمويلية ( ١s‏ هااهااعاهء اهاعم همf)‏ إذا أردت أن توفر حسم أفضل كل ما عليك فعله هو تغير القيمة 
للمتغير ٤‏ اموا فإذا لم تستخدم المتغيرا موا سيتوجب عليك عمل العديد من التغيرات على كل مكان في كودك . أو بكلمة أخرى إذا كتبت السطر الذي يحسب الكمية المحسومة 
كما سترى فعليك البحث عن كل الأسطر في كودك التي تحسب الحسومات وتغير الحسم من 0.35 إلى قيمة أخرى 

DiscountedAmount = 24500 * (1 - 0.35) 

فبمجرد تغير قيمة المتغير ٣٤‏ مء في مكان واحد ضمن كودك سيتم تحديث كامJ‏ llئبرaliج‏ ) (the Entire program is up-to-date.‏ 


في معظم لغات البرمجة المتغيرات يجب أن يتم الإعلان عنها في المقدمة ,تاريخيا السبب في عمل هذا هر مساعدة المترجم على إنتاج كود أكثر فعاليةءفإذا كان المترجم يعرف جميع 
المتغيرات وأنواعها في وقت مبكر يستطيع أن ينتج الكود المحكم والأكثر فعالية. أو يعمل على تحسين الكود , فمثلا عندما تخبر المترجم على أن المتغير أ١‏ 0٥ء‏ سيحفظ قيمة رقمية 
,فان المترجم سيحجز عدد محدد من البايتات للمتغير أ٣‏ مء كي يستخدمها. ميزة للبيسك 8۸S|٥‏ كانت وما تزال من أكثر الانتقادات حدة (4 ciz‏ yاintense)‏ ھي انها لا 
تجبر المبرمج على التصريح عن جميع المتغيرات, کما ستری ,توجد أسباب لعملية الترجمة من أكثر أهمية من زيادة السرعة والفعالية والتي تجعل من الضروري الإعلان عن 

المتغيرات,فمثلا عندما يعلم المترجم نوع المتغيرات مقدما مع٣ج۷له ¡|١‏ يستطيع أن يلتقط العديد من الأخطاء وقت التصميم أو وقت التنفيذ ,هذه الأخطاء إن لم تعالج ستطفو على السطح 
وقت التنفيذ , فعندما تصرح عن متغير من نوع تاريخ عه( فان المترجم لن يسمح لك بإسناد قيمة رقمية صحيحة إليه. 
عند البرمجة في 2008 ۷8 عليك التصريح عن المتغيرات لأنه النمط الافتراضي ومايكروسوفت توصي بشدة بهذه الممارسة, إذا حاولت أن تستخدم متغير غير مصرح عنه في كودك 
فان 2008 ۷/8 سترمي باستثناء . إنها ستلتقط الخطأً حالما تنتهي من كتابة السطر الذي يستخدم المتغير الغير مصرح عنه وتضع تحته خط متعرج احمر, من الممكن تغير السلوك 
الافتراضي وتستخدم المتغيرات الغير مصرح عنها وهي الطريقة التي كان معظم الناس في الإصدارات القديمة من 8 يعمل بها (سترى كيفية فعل هذا لاحقا في هذا المقطع) ولكن جميع 
الأمتلة في هذا الكتاب تستخدم المتغيرات المعلن عنها بشكل صريح »> على أية حال عليك وبقوة أن تتشجع للتصريح عن متغير اتك . للإعلان عن متغير ما استخدم العبارة "01 متبوعة 
باسم المتغير والكلمة المحجوزة ئ۸ ومن ثم نوعه ,كما يلي: 

Dim meters As Integer 

Dim greetings As String 
المتغير الأول 616۲5 سيخزن أعداد صحيحة مثل 3 أو 1002 والمتغير الثاني 9۲866۸95 سيخزن نص , تستطيع أن تصرح عن عدة متغيرات من نفس النوع أو مختلفة في نفس‎ 


: السطر, كما بلي‎ 
Dim Qty As Integer, Amount As Decimal, CardNum As String 

أما للإعلان عن عدد من المتغيرات من نفس النوع ليس عليك تكرار النوع فقط افصل بين جميع المتغيرات التي من نفس النوع لفاصلة ئsة۳ ٥0۳‏ وضع النوع للمتغير الأخير 

Dim Length, Width, Height As Integer, Volume, Area As Double 
هذه العبارة تصرح عن ثلاث متغيرات من النوع عدد صحيح 51606[ ومتغيران من النوع المزدوج 6اطنه5 . المتغيرات من النوع المزدوج تحفظ القيم الكسرية اع٠ ٠زا هع؟ أو القيم‎ 
تستطیع‎ . greater 2٥٥ل وھو مشاب البيانات مفرد مع استثناء هو أنها تستطيع أن نمثل القيم الغير صحيحة بدقة أكبر إعجا‎ )؟اهھاآ٣و-مەi‎ ٤ ذات النقطة العائمۃ(sھں اھ۷‎ 
استخدام كلمات محجوزة أخرى في التصريح عن المتغيرات , مثل عاأع†S همه ,icا۴ub ,مPivat وهذه الكلمات المحجوزة تدعى محددات الوصول ألم" ssهacc لأنها‎ 
تحدد أي من مقاطع كودك تستطيع الوصول إليها المتغيرات المخصصة بهذه المحددات وأي من المقاطع لا تستطيع الوصول إليها, في الوقت الحالي ضع في رأسك أن جميع المتغيرات‎ 


المصرح عنها بالعبارة "01 تتواجد في التركيبة( عاuلم"‏ ) التي بها تم الإعلان عنها فإذا ما تم الإعلان عن المتغير أ٣‏ لاه في الأجراء الفرعي llaa)subroutineج‏ الحدث ,متا( 
فانه يتواجد فقط في هذا الإجراء الفرعي ,ولن تستطيع الوصول إلى هذا المتغير من خارج هذا الإجراء الفرعي » عمليا يمكن إن يكون لديك المتغير اه في عدة إجراءات فرعية وكل 
متغير هو مخزن محلي ولا يتداخل أحدها مع الأخر. 


عندما تصرح عن المتغيرات عليك أن تكون مدرك لاصطلاحات(تقاليد) تسمية المتغيرات فأسماء المتغيرات : 

يجب أن تبداً بحرف |6١‏ متبوعا بعدد أخر من الأحرف أو الأرقام أأواك 

لا تحوي على نقاط ضمنية أو أي من علامات الترقيم كامط"/ء ۸ 0أاجuاعمuم‏ فقط مسموح بميزة الخط ائمنخفض erڼcharac underscore‏ 

يجب أن لا تزيد عن 255 حر characters‏ 

يجب أن تكون مفردة ومميزة ضمن مجالها مم 0ءء هذا يعني انك لا تستطيع أن يكون لديك متغيران متطابقان في الاسم في نفس الإجراء الفرعي ولكن يمكن ان يكون لديك 
نفس الاسم في عدة إجراءات فرعية. 

اسم المتغير في 2008 ۷8 غير حساسة لحالة الأحرف ع۷آ)أsہمsہi-مas‏ فجميع هذه المتغیرات nd N(YA 6٤‏ ,موaرص‏ ,موAرn‏ تشير إلى نفس المتغير في بشكل عملي 
كلما أدخلت أسماء المتغيرات فان المحرر سيحول حالتها بحيث تطابق تصريحاتها. 


يسمح لك الفيجوال بيسك 2008 بالتمهيد للمتغيرات في نفس السطر الذي صرح عنها فيه. العبارة التالية تصرح عن متغير قيمة صحيحة 6١‏ ”| وتمهد له (تسند) القيمة 3,045 
Dim distance As Integer = 3045‏ 
وهذه العبارة مكافئة للسطرين التاليين: 


Dim distance As Integer 
distance = 3045 

ويمكن ان تصرح وتمهد للعديد من المتغيرات التي من نفس النوع أو مختلفة,في نفس السطر 
Dim quantity As Integer = 1, discount As Single = 0.25‏ 


كما ذكرت سابقا واحد من العلامات المميزة للبيسك 8۸S|٣(‏ 0 كع ںuاaعf demak‏ هt)r)‏ بما فيها الإصدارات السابقة من البيسك هي القدرة على استخدام المتغيرات بدون التصريح 
عنها ,وهذا التدريب غير مرغوب فيه أبدا, هذه الميزة تعود إلى اللغة ,فقط في الحالة الآمنة. يسمح لك الفيجوال بيسك2008 بأن تصرح عن المتغيرات بإسناد قيم لها ,والمترجم سيقوم 
باستنتاج نوع المتغير من خلال قيمته المسندة و سينشئ متغير ما لنوع محدد خلف المشهد ,العبارة التالية تنشئ متغير من ٣عوم)م|‏ : 
Dim count = 2999‏ 
لتعرف نوع المتغير ,استخدم الطريقة ١0هام"‏ عممر ه6 هذه الطريقة تعود بنوع الكائن الذي يمثل نوع المتغير.اسم النوع يتم الحصول عليه بواسطة الخاصية 10581R|N6‏ 
property‏ العبارة التالية ستطبع النم [58161١١110102‏ في liفذö :Immediate window‏ 
Debug.WriteLine(count.GetType.ToString)‏ 
المتغير count‏ هو من النوع Integer type‏ فاذا حاولت إسناد قيمة من نوع مختلف إلى هذا المتغير فيما بعد في كودك مثل تاريخ فان المحرر سيضع خط تحت تحت القيمة ويولد التحذير 
اللي alu of type ‘Date’ cannot be converted to Integer‏ فالمترجم قام باستنتاج نوع القيمة المسندة بشكل أولي إلى المتغير وانشأ متغير موافق للنوع . وهذا هو السبب 
في أن العبارات المتلاحقة ٤ع‏ ۹uمءطںء‏ لا تستطيع تغير نوع المتغير تستطيع أن تعطل النوع ۸٥٥‏ ٥٣ہ¡‏ بإدخال العبارة التالية على المودیل (eاduم")‏ 
Option Infer Off‏ 
بشكل اختياري تستطيع آن تفعّل أو تعطل هذا الخيار من صفحة خصائص المشروع فإذا كان خيار التحويل معطل ( ۴fه)فان‏ المترجم سيعامل المتغيرات المصرح عنها بدون نوع معين 
بالاعتماد على خيار التدقيق(اء ا٣ء‏ ١٥اامه‏ ) , إذا كان هذا الخيار معطل(؟؟ه) فان المترجم سينشئ متغير كائن #اطه ۲ج۷ ا هزط0 والذي يستطيع أن يخزن أي قيمة ,حتى قيم الأنواع 
المختلفة في منهج التطبيق . إذا كان الخيار option strict on)‏ ) مفعل فان المترجم سيرفض الإعلان ,وسيضع خط تحت اسم المتغير مع خط متعرج ويولد التحذير التالي : 
Strict On requires all variable declarations to have an As a‏ ام0 بشکل عام فاني استخدم الإعلان الصريح والذي يوصی به کافضل تدریب 
لإنشاء واستخدام المتغيرات. 


يتعرف الفيجوال بيسك على خمس أنواع تصنيفات للمتغيرات: 


Numeric الرقمي‎ « 
String النصي‎ 
Boolean المنطقي‎ 

Date التاريخ‎ 


للنوع العام (کائن) اعھزOb‏ 
النوعين الرئيسين لتصنيفات المتغيرات هي العددية والنصية فالمتغيرات العددية ة تخز تخزن الأعداد والمتغيرات النصية تخز ن النصوص بينما التغير العام (الكائن ) يستطيع تخزين أي نوع من 
البيانات, لماذا نعاني لتحديد نوع المتغير إذا كان واحد منها يناسب الجميع ؟ بشكل سطحي المتغيرات من النوع كائن يمكن أن تبدو فكرة جيدة ولكن لها مساؤها disadvantages‏ 
فالمتغیرات للنوع العددي الصحيح كعاطهاا ج۷ ٣هوعم|‏ تم تحسينها للتخزين الأمثل القيم الصحيحة ١#۲وع”|‏ ومتغيرات التاريخ تم تحسينها للتخزين الأمثل للتواريخ. قبل أن تستطيع 
الفيجوال بيسك استخدام المتغير العام يجب أن تحدد نوعه وتنجز التحويل الضروري "6٥6554۲۷ ٥0١۷6۲80١5١‏ . إذا تم التصريح عن المتغير بنوع معين فهذا التحويل غير ضروري 


سنبداً مناقشتنا لأنواع المتغيرات بالمتغيرات العددية,فالأعداد يمكن أن تخزن في عدة تنسيقات بالاعتماد على حجم العدد ودقته .لذا يوجد عدة أنواع للمتغيرات العددية ,البيانات من نوع 
تاريخ ونص هي أغنى بلغة الوظيفة (الفعالية) التي تعرضها. 


جميع لغات البرمجة تزود بأنواع متنوعة من البيانات العددية متضمنة التالي : 

0 البيانات الصحيحة 65 لعاہ!ا (یوجد عدة أنواع للبيانات الصحيحة) 

Decimals ةيرشelا‎ o 

ه المفردة أو الأعداد ذات النقطة (الفاصلة)العائمة بدقة محدودةö Single, or floating-point numbers with limited precision‏ 

ەه المزدوجة ماطاںه أو الأعداد ذات النقطة(الفاصلة) العائمة بدقة lleئıة floating-point numbers with extreme precision‏ 
العشري والمفرد والمزدوج هي ثلاث أنواع رئيسية من البيانات لتخزين الأعداد ذات الفاصلة العائمة(الأعداد بجزء كسري) فنوع البيانات المزدوج يستطيع أن يمتل هذه الأعداد بدقة 
accurately‏ أعلى من النوع المفرد ويستخدم بشكل خاص ۷|ع۷أوںاع×ه في الحسابات lاdعبٹıة „scientific calculations‏ 
أنواع البيانات الصحيحة تخزن الأعداد الصحيحة ك٣ع#طا٣ام‏ مامطس. نوع بيانات متغيرك يمكن أن تصنع اختلاف في نتيجة الحسابات . الأنواع المناسبة للمتغير يتم تحديدها بواسطة 
طبيعة القيم التي تمثلها » واختيار نوع البيانات هو بشكل متناوب (متكرر) تسوية( أه-هلهء) ) بين الدقة هاوأ هم والسرعة في التنفيذ ١0اا‏ نات ه×ه( نوع البيانات الأقل دقة تكون 
أسرع في llئnعllجة .(less-precise data types are manipulated faster‏ 


integer Variables ةحيحصnلا المتغيرات العددية‎ 

يوجد ثلاث أنواع للمتغيرات لتخزين الاعداد الصحيحة ,وهي تختلف في مجال الأعداد التي تستطيع تمثيلها فقط وكما تعلم النوع الذي يأخذ بايتات أكثر يستطيع أن يخزن قيم أكبر . ونوع 
المتغير الصحيح الذي ستستخدمه يعتمد على المهمة التي تکون قيد الاستخدام ,وسوف تختار النوع الذي يمثل القيم الأكبر فتوقعك المسبق ticipate)‏ an)سیظھر‏ في حساباتك ,تستطيع 
الذهاب إلى النوع الطويل وه | لتكون أمن ولكن هذا المتغير هو أكبر بأربع مرات من المتغير القصير 5۸0۲۲ ويأخذ من الكمبيوتر فترة أطول للمعالجة من تلك التي يأخذها المتغير 
القصير. 

كل نوع بيانات رقمية يعرض خاصتي القيمة الصغرى عل ٧.|N۷۸-‏ والقيمة العظمی ٤ل‏ ۸۱۸×۷۸1 واللتان تعودان بالقيمة الصغرى ٠ں‏ "امام" والقيمة الكبرى "×٣ u۳‏ على 
الترتيب راع۷أاممءمr‏ والتي يمكن تمثيلها dعأہ‏ موم مهم بواسطة نوع بيانات الموافق و”ا١٣0م5ه 0۲٣‏ فقيم النوع القصير 5۸0۲١ )1١16(‏ يمكن تخزينها في المتغير 
الصحیح(132٣|( Integer‏ وفي المتخير الطويل )|١64(‏ و١٠‏ | ولكن العكس(ه5٣٠۷ه٠)‏ ليس صحيحا . إذا حاولت تخزين قيمة من النوع الطويل في متغير #۲ و )"| سينتج عنه خطاً 
والمترجم سيضع خط تحت مز عج وال١٣‏ 8ه متعرج اووس ولقد قمت بتضمين عبارات بشرح الخطأ الناتج عن بعض العبارات. 


Dim shortlnt As Int16 

Dim Int As Int32 

Dim longlnt As Int64 
Debug.WriteLine(Int16.MinValue) 
Debug.WriteLine(Int16.MaxValue) 
Debug.WriteLine(Int32.MinValue) 
Debug.WriteLine(Int32.MaxValue) 
Debug.WriteLine(Int64.MinValue) 
Debug.WriteLine(Int64.MaxValue) 
shortlnt = Int16.MaxValue + 1 


' ERROR, exceeds the maximum value of the Short data typ» (5 (خطأ,رزيادة عن حد القيمة العظمى لنو ع البيانات القصير‎ 


Int = Int16.MaxValue + 1 


' OK, is within the range of the Integer data type( 32 صحيح ضمن مجال نوع البيانات الصحيحة (الإنتغر‎ ( 


Int = Int32.MaxValue + 1 


' ERROR, exceeds the maximum value of the Integer data type(integer (خاطئة,زيادة عن حد القيمة العظمى لنوع البيانات‎ 


Int = Int32.MinValue - 1 


' ERROR, exceeds the minimum value of the Integer data type(integer خاطئة,زيادة عن حد القيمة الصغرى لنوع البيانات‎ ( 


الأخضر والتي يقابلها معنى التعليق في اللغة العربية بالخط الأحمر, فإذ 


longlnt = Int32.MaxValue + 1 


' OK, is within the range of the Long data typضe(‎ 64) صحيح ضمن مجال نوع البيانات الطويل‎ ( 


longlnt = Int64.MaxValue + 1 


( خاطئة,زيادة عن حد مجال جميع البيانات ائلصحيحة( ERROR, exceeds the range of all Integer data types‏ ' 
عبارات 70۴16101١6‏ الستة ستطبع القيم العظمى والصغرى التي تستطيع تمثيلها بأنواع بيانات الأعداد الصحيحة المتنوعة , العبارات التي تليها مشروحة بواسطة التعليقات ذات الخط 


ما حركت المؤشر فوق العبارات الخاطئة مثلا سترى وصف لرسالة الخطأً كما يلي بالنسبة للعبارة الأولى : 


(Constant expression not representable in type Short‏ لا یمکن تمثیل الثابت في النوع قصير (٤۸0۲ء‏ )) ,حاول قراءة وفهم باقي الكود مع التعليقات. 


نوع البيانات ٠مty data‏ 

)Byte(‏ 8yte(بایت‏ واحد) 

ned Byte )sbyte(‏ Sig(بایت‏ واحد 
بإشارة) 

Short (In t16(‏ (قصیر16بت) 

(In32(‏ ntegerا(صحیح‏ 32 بت) 


) بت‎ 64لیوط(L‎ on و‎ )!t64( 


ريصق(Jلnsigned‎ Short (UShort) 
بدون إشارة 16 بت)‎ 

Unsigned Integer 

(nteger)(صحیح‏ بدون إشارة 32 بت) 
Long )ULong(‏ nedوnsiل(طویل‏ 
بدون إشارة 64 بت) 


Single Precision (Single) 
(مفرد(الكسرية بدقة مفردة))‎ 


Double Precision (Double) 
(مزدوج(الكسرية بدقة مزدوجة)‎ 


Decimal (Decimal) 
(الأعداد العشرية(الصحيحة و الكسرية)‎ 


تمثيله في الذاكرة 
byte‏ 1 


1 byte 


2 byte 
4 byte 


8 byte 
2 byte 
4 bytes 


8 bytes 


4 bytes 


8 bytes 


16 bytes 


المجال(السعة التخزينية) 
أعداد صحيحة في المجال من 0 إلى 255 
أعداد صحيحة في المجال من -128 إلى 127 


قيم صحيحة في المجال من -32.768 إلى 32767 

قيم صحيحة في المجال من 2,147,483,648- إلى 2,147,483,647 
قيم صحيحة في المجال من 9,223,372,036,854,755,808- إلى 
9,223,372,036,854,755,7 


قيم صحيحة موجبة في المجال من 0 إلى 65,535 
قيم صحيحة موجبة في المجال من 0 إلى 4,294,967,295 


قيم صحيحة موجبة في المجال من 0 إلى 18,446,744,073,709,551,615 


أعداد ذات فاصلة عائمة بدقة مفردة وتمثل الأعداد السالبة في المجال من -3.402823٤38‏ إلى 
-1.401298E-5‏ 

والأعداد الموجبة في المجال من 1.401298٤-45‏ إلى 3.402823٤38‏ 

والقيمة 0 لايمكن تمثيلها بدقة(هي عدد صغير »صغير جدا ولكن ليست صفر تماما) 

أعداد ذات فاصلة عائمة(الكسرية) بدقة مزدوجة وتمثل الأعداد السالبة في المجال من 

08 1.79769313486232- إلى ٤-324‏ 4.94065645841247- 
والأعداد الموجبة في المجال من ٤-324‏ 4.94065645841247 إلى 1.79769313486232٤308‏ 


الأعداد الصحيحة و الكسرية(ذات الفاصلة العائمة مدرجة بواسطة عامل تحليل في المجال من 0 إلى 28) 


إن الأسماء مفرد هاوأ ومزدوج عااuه0‏ أتت من دقة مفردة ١0اءأعه۲م-هاو‏ اء ودقة مزدرجة ١0أءأءم۲م-هاطنامل‏ للأعداد . فالأعداد ذات الدقة المزدوجة يتم تخزينها بشكل 


داخلي بدقة أعلى من الأعداد ذات الدقة المفردة . في الحسابات العلمية تحتاج إلى كامل الدقة التي تستطيع الحصول عليها وفي هذه الحالات عليك استخدام البيانات من النوع المزدوج. 
فنتيجة العملية 3 / 1 هو . . .0.333333 (عدد غير منته من الرقم 3) تستطيع مليء 256 ميغا بايت 2568 من ألرام 8۸ بالأرقام 3 والنتيجة ستبقى مبتورة (غير كاملة 
)truncated‏ إليك متال يوضح تأثيرات القطع(البتر ٣هأاةء”ںء)‏ ) : في معالج حدث الضغط على الزر صرح عن متغيرين كما تعلمت سابقا وكما يلي : 


ومن ثم ادخل العبارات التالية : 


Dim a As Single, b As Double 


a=1/3 
Debug.WriteLine(a) 


نفذ التطبيق وستحصل على النتيجة التالية في نافذة الفورية جأ١مص‏ "| : 


KKEREK E) 


يوجد سبع أرقام على يمين الفاصلة العشرية ام ام" عه , أوقف التطبيق بالضغط على kهعآ8‏ +|م)۳ وقم بإلحاق الأسطر التالية في نهاية مقطع الكود السابق: 


هذه المرة ستحصل على النتيجة التاليةفي نافذة واإمص "ا : 


a =a * 1000 
Debug.WriteLine(a) 


33333.34 


هذه النتيجة غير دقيقة كما يمكن أن تكون قد توقعت بشكل أولي وحتى لم يتم تدوير ها بشكل مناسب هلله فإذا ما قسمت ج على 100,000 ستكون النتيجة: 0.3333334 


هذا العدد مختلف عن العدد الذي بدأنا به وهو .(0.3333333) فالقيمة الآولية تم تدورها عندما ضربت ب 100,000 رط ا¡ Q#امتاااص‏ وتم تخزينها في متغير مفرد هاوہ¡؟S‏ 
ماvariab‏ وهذه نقطة مهمة في الحسابات العددية, وتسمى 2920١‏ مهم ٣٣١١‏ ه(تكاثر الخطا) .في السلاسل الطويلة للحسابات العددية فان الأخطاء ستتكاثر errors propagate‏ « 
حتی ولو تستطیع ن تجjı (tolerate)‏ الخطأً المقدم بواسطة نوع البيانات المفرد ماومأ8 في عملية وحيدة فان الأخطاء التراكمية( cumulative errors‏ ( يمكن أن تصبح ذات معنی 
هام(مؤثرة†"f|4أ”‏ 9اك ) . دعنا ننجز نفس العملية ولكن بأعداد ذات دقة مزدرجة (sاعط٣نا"‏ ١0اءأه۲م-ماطاuمك)‏ في هذه المرة استخدم المتغير ط. أضف السطور التالية إلى 
معالج حدث ضغط الزر: 
b=1/3‏ 
Debug.WriteLine(b)‏ 
b = b * 100000‏ 
Debug.WriteLine(b)‏ 
هذه المرة سيتم عرض الاأعداد التالية في النافذة †2¡ل 6" ¬| :0.333333333333333 ,33333.3333333333 


النتائج المنتجة بواسطة المتغيرات ذات | لدقة المزدوجة أكثر دقة. 
لماذا مثل هذه الأخطاء تنتج في حساباتنا؟ 
إن السبب في ذلك هو أن الكمبيوتر يخزن الأعداد بشكل داخلي بواسطة رقمان وهما:الصفر0 والواحد 1 . وهذا مناسب(مريحا "۷6٣0ء‏ ) جدا للكمبيوتر, لأن الإلكترونيات تفهم حالتان 
فقط (fه‏ ۵ه ,)٥۸‏ في الواقع ھا گە As a matter‏ ,جميع العبارات يتم ترجمتها إلى بيتات ءأط(أصفار و وحادات كهصه ١ه z۲5‏ ) قبل أن يفهمها الكمبيوتر وينفذها. 
نظام العد الثنائي ("عأكرء وأ8ماصيم راه”اط) المستخدم بواسطة الكمبيوترات لا يختلف كثيرا عن النظام العشري "٠ءء‏ اجة" عه الذي نستخدمه نحن البشر, فالكمبيوتر فقط 
يستخدم القليل من الأرقام,بينما نحن البشر نستخدم عشرة أرقام مختلفة لتمثيل الأعداد,الصحيحة أو الكسرية (اa‏ هاعم ٣ه‏ ماهس ) لأن لدينا عشرة أصابع( بشكل مساير ,للكمبيوتر فقط 
إصبعان يستطيع العد بهما ) وكما في نظام العد العشري "كلك و اصن" ام" عه والذي به بعض الأعداد لا يمكن تمثيلها بدقة, يوجد أيضا أعداد لا يمكن تمثيلها بدقة في 
النظام الثنائي .۳ عأءئرsy .binary‏ 
دعني أقدم لك مثال أكثر توضيحا مام ٥×2‏ واھ ہumiاi‏ . قم بإنشاء متغیر ۾ ذو دقة مفردة eاطھvari‏ recisionم-eاsing‏ ومتغیر b‏ ذو دقة مزدوجة double-precisi0n‏ 
ماab ari‏ واسند نفس القيمة إليهم : 
Dim a As Single, b As Double‏ 
a = 0.007‏ 
b = 0.03007‏ 
ومن ثم أطبع الاختلاف بينهما : 
Debug.WriteLine(a - b) 1‏ 
إذا نفذت هذه الأسطر فان النتيجة لن تكون صفرا وإنما ستكون ٤-10‏ 6.03199004634014- وهذا عدد صغير جدا ويمكن كتابته ايضا كما يلي 
0.000000000603199004634014 لان الأنواع الرقمية المختلفة تخزن بشكل مختلف في الذاكرة ولا تتطابق تماما,ما يعني هذا لك أن جميع المتغيرات في حساب ما يجب أن 
تكون من نفس النوع. 
أخيرارااجu†‏ ممع الكمبيوترات ستفهم مجموعة الرموز الرياضية ١0أأهاه"‏ اهءاأة"هطامم ولن تحول جميع التعابير العددية إلى قيم , كما هي تفعل اليوم . إذا ضربت التعبير 
3 بالعدد 3 فان النتيجة لن تكون واحد(1) . 
الكمبيوترات مهما يكن عليها تحويل التعبير 1/3 إلى قيمة قبل أن تستطيع ضربها ب3 , لان 1/3 لا يمكن تمثيلها بدقة ,فالنتيجة ل3 × (1/3) لن تکون واحد تماما : 
إذا تم التصريح عن المتغيرين ج و ط كمفرد عاوہSŠSi‏ او مزدو ج eاDoub‏ فان العبارات التالية سوف تطبع واحد,كما يلي: (النتيجة واحد في حال البيانات من نفس النوع) 
a=3‏ 
b=1/a‏ 
Debug.WriteLine(a * b)‏ 
إذا تم التصريح عن المتغيران السابقان كنوع عشري اجه" عه وج فان النتيجة ستكون رقم قريب إلى الواحد ولكن ليس واحد تماما وإنما ( 
0.999999999999999999999999999) يوجد حوالي 28 رقم بعد الفاصلة العشرية . 


المتغيرات من النوع العشري تخزن داخليا ك ء۲ هوه|ا١|‏ (قيم صحيحة) في 16بايت( هلط 16) وتدرج (تقسم(بأس)أو بقوة الأساس 10)10 (is scaled by a power of‏ , 
أس التدريج(التقسيم) 0۷8۲م و”أاهعءء يحدد عدد الأرقام العشرية التي على يمين الفاصلة العائمة ,وهو قيمة صحيحة من 0 إلى 28 عندما تكون قوة التدريج 0 صفر فان القيمة تضرب 
بواحد(1) أو 0^10 (عشرة قوة(أس)صفر) ويتم تمثليها بدون رقم عشري . بينما عندما يكون الأس(قوة التدريج(قوة العدد 10) هو 28 فان القيمة تقسم على 28٨10‏ والتي هي واحد 
متبوع ب 28 صفر(وهي قيمة ضخمة) ويتم تمثيلها ب 28 رقم عشري . 
القيمة الأكبر التي يمكن أن يتم تمثيلها بالقيمة العشرية هي الصحيحة (79,228,162,514,264,337,593,543,950,335 اهوعtاin)‏ والقيمة الأصغر التي يمكن أن تمتلها بالمتغير 
العشري هي نفس القيمة السابقة مع إشارة السالب , وهذه القيم تستخدم عامل (أس) التدريج صفر(0) أي (0^10 )„ عندما يكون عامل الموازنة هو 28 فان القيمة الأعلى التي يمكن لك أن 
تمتلها في المتغير العشري صغيرة تماما عمليا هي 7.9228162514264337593543950335( والقيمة الأصغر نفسها مع إشارة سالب). وهذه قيمة عددية صغيرة جدا (وليست 
تماما 8 ) ولكنها مثلت بزيادة مفرطة في الدقة إعجإacc›u .exireme‏ 
العدد صفر لايمكن تمثيله بدقة بواسطة متغير عشري مدر ج بالعامل (0۲اعه؟ )(الأس) 28 , القيمة الموجبة الا صغر التي تستطيع تمثيلها بنفس أس التدريج هي (01. . .0.00)(يوجد 27 
صفر بين الفاصلة العشرية و الرقم واحد 1) - قيمة صغيرة للغاية ولكن تبقى تماما ليست صفرًا NE‏ 
الممكنة المتوفرة تحت تصرفك(|ا2ء0مءال ٣‏ ا0ل اج م2۷ uمر),‏ تماما مثل كل شيء أخر موجود في الحياة. 
عند استخدام الأعداد العشرية ,فان المترجم يحفظ مسار الأرقام العشرية (الأرقام التي تتبع النقطة العشرية) ويعامل جمیع القيم كقيم صحيحة integers‏ فالقيمة 235.85 يتم تمثيلها كقيمة 
صحيحة 23585 ولكن المترجم يعرف أنه يتوجب عليه تخفيض القيمة( 0۷ل هاهءء) بالنسبة 100(تقسيم القيمة على 2^10 )عندما ينتهي من استخدامها . 
التقسيم (التخفيض بالنسبة 100 )والتي هي(102) مطابق لرفع الفاصلة العشرية موضعين(رقمين) ,فأولا يضرب المترجم هذه القيمة بمائة(100 ) لجعلها صحيحة ومن ثم يقسمها على 
0 لإعادة القيمة إلى قيمتها الأصلية, دعنا نقول انك تريد أن تضرب القيم التالية : 12.4051 * 328.558 
عليك أولا أن تحولهم إلى قيم صحيحة هوه¡ وعليك أن تتذكر أن الرقم الأول لدیه تلات أرقام عشرية,والتاني لديه أربع أرقام عشرية . ونتيجة الضرب سيكون لديها سبع أرقام عشرية 
لذلك تستطيع أن تضرب القيم التالية: 124051 * 328558 ومن ثم تعامل الأرقام السبع الأخيرة للنتيجة كأرقام عشرية, استخدم حاسبة ويندوز (في الوضع العلمي Scie ٤fi‏ 
)۷i8W‏ لحساب الناتج السابق والنتيجة هي 0,757,948,458[ القيمة الحقيقية بعد الأخذ بعين الاعتبار الأرقام العشرية هي 1075.7948458 هذه هي الطريقة التي يعالج فيها 
المترجم البيانات من النوع العشري همر هول اج"اءه0 ,. أدخل السطور التالية في معالج حدث الضغط على الزر ونفذ البرنامج: 
Dim a As Decimal = 328.558D‏ 
Dim b As Decimal = 12.4051D‏ 
Dim c As Decimal‏ 
c=a*b‏ 
ا Debug.WriteLine(c.ToString)‏ 
الحرف 0 عند نهاية العبارتين يحدد على أن الأعداد سوف تحول ١6أ۲‏ ه۷١‏ هع إلى قيم عشرية, بشكل افتراضي كل قيمة بجزء كسري (4۲م اجة"ها†هم]) تعامل كقيمة مزدوجة 
ما0ubط‏ . إسناد قيمة من النوع المزدوج إلى متغير عشري سوف ينتج عنه خطأ إذا كان خيار التدقيق فعال(يعمل ٠١‏ و¡ ١0اامه‏ ما٣5‏ ) لذا عليك أن تحدد بشكل صريح أن القيمتان 
سيتم تحويلهما إلى النوع العشري عمرا اجص"أعه( الحرف 0 عند نهاية القيمة تدعى (حرف illوع „(type character.‏ 
إذا نفذت نفس الحساب السابق باستخدام متغير من النوع المفرد فان النتيجة ستكون مبتورة Q١#أهء”نا٣)(ومدورة)‏ إلى ثلاث أرقام عشرية 4,075.795 لاحظ أن نوع البيانات العشرية لا 
تقدم أي خطأ نتيجة التدوير .لديها المقدرة على تمثيل النتيجة بنفس العدد من الأرقام العشرية ,وهذه هي الفائدة الحقيقية للنوع العشري ,والذي يجعل منها النوع المثالي اجهل لتطبيقات 
التمويل financial applications‏ . من أجل الحسابات العلمية يتوجب عليك استخدام النوع المزدوج esاDoub‏ .بینما الأعداد العشري هي الاختيار الأفضل للحسابات التي تتطلب دقة 


خاصة (مثل ثمانية أرقام عشرية) 
إجدول الحروف اللو عي( 5إ6اع ه2۲ عملا )لتحريل الانو اح المخطفة يانات 
C‏ تحول القيمة إلى النوع الحرفي Dim ch As String = "A"c ٥٩2٣‏ 


Dim price As Decimal = 12.99D D‌مci"ةا تحول القيمة إلى النوع العشري همر‎ Dor @ 
Dim pi As Double = 3.14 R Dمubام تحول القيمة إلى النوع المزدرج عمرا‎ Ror # 
Dim count As Integer = 99| Integer type تحول القيمة إلى النوع الصيج‎ lor % 
Dim distance As Long = 1999L ام٣و تحول القيمة إلى النوع الطويل عمرا‎ Lor & 
Dim age As Short = 1S Short tyمع تحول القيمة إلى النوع القصير‎ S 
Dim velocity As Single = 74.99F Single تحول القيمة إلى النوع المفرد عمر‎ F or! 


يمكن لمنصة )اهس هه٣۴‏ العمل أن تمثل اثنان من القيم الخاصة جدا والتي يمكن أن لا تكون قيم عددية بحد ذاتها ولكن ناشئة عن حسابات عددية: 4N‏ (ليس رقم ) واللانهاية 
(۷اnfinا),‏ إذا أنتجت حساباتك 1۸١N‏ أو اللانهاية, عليك تأكيد بياناتك (التحقق من بياناتك "أ۴ ) وأعمل على إعادة الحسابات, أو استسلم . من أجل جميع أهداف العملية ,فان لا 
۷ ولا حتى اللانهاية يمكن أن تستخدم في الحسابات العملية اليومية , 


بعض الحسابات تعطي نتائج غير معروفة مثل اللانهاية ,رياضيا: نتيجة تقسيم أي عدد على الصفر هو لانهاية ,لسوء الحظ الكمبيوترات لا تستطيع تمثيل اللانهاية لذلك فإنها تنتج خطأً عندما 
تطلب التقسيم على صفر , الفيجوال بيسك 2008 سوف يخبر(يقدم تقريرا) عن قيمة خاصة والتي هي ليست رقم:©( القيمة لانهاية ( .إذا استدعيت الئÙطريقة TOSTRING method‏ 
لهذه القيمة ستعود بالنص:۷ا" |١۴‏ . دعنا نولد قيمة لانهاية ,ابدأ التصريح عن متغير مزدوج عماج۷ ماه كما في العبارات التالية : 


Dim dblVar As Double = 999‏ 
Dim infVar As Double‏ 
infVar = dblVar / 0‏ 
MsgBox(infVar)‏ 
النص لأا "| سيظهر في صندوق رسالة وهذا النص فقط وصف ,يخبرك أن النتيجة ليست صحيحة (إنها قيمة ضخمة جدا تزيد عن مجال القيم الرقمية والتي يمكن تمثيلها في أي نوع من 
البيانات ) ولكن لن يتم استخدامها في الحسابات الأخرى ,مهما يكن تستطيع استخدام القيمة لانهاية في عمليات حسابية . فعمليات خاصة باللانهاية تكون مفهومة مء 6ء مه" وأخرى 
لا تکون . 
توجد حسابات أخرى ينتج عنها اهل ليس عدد "٥١-٣8۲‏ فتقسيم عدد كبير على أخر صغير جدا ستزيد النتيجة عن قيمة أي مجال لأنواع البيانات التي يمكن أن تمثل القيمة 
والنتيجة ستكون لانهاية, صرح عن ثلاث متغيرات في معالج حدث النقر على الزر كما يلي: 
Dim largeVar As Double = 1.0E+299‏ 
Dim smallVar As Double = 1.0E-299‏ 
Dim result As Double‏ 
result = largeVar / smallVar‏ 
MsgBox(result)‏ 
الرمز 1۴299 يعني 10 مرفوعة للأس 299 والذي هو رقم كبير جدا وبنفس الطريقة الرمز 1۴-299 يعني 10 مرفوعة للأس 299- والذي يكافئ تقسيم 10 على رقم بضخامة 
.1E2299‏ 
ستكون النتيجة لانهاية, إذا عكست العملية فان النتيجة ستكون صفر وهي ليست صفر تماما ولكن النوع المزدوج لا يستطيع تمثيل القيم العددية القريبة جدا من الصفر بدقة . 
تستطيع أيضا توليد القيمة لانهاية بضرب عدد كبير جدا (أو عدد صغير جدا)عدة مرات بنفسه . إن التقسيم 0 / 0 مثلا ليس بقيمة رقمية . للتقسيم على الصفر جرب العبارة التالية: 


Dim var1, var2 As Double 
Dim result As Double 


var1 = 0 

var2 = 0 

result = var1 / var2 
MsgBox(result) 


) NAN إذا نفذت العبارة السابقة ستكون النتيجة (ليس برقم.‎ 
العبارة التالية أيضا ستعطي لانهاية:‎ 
Dim result As Double 
result = result + result 
result = 10 / result 
result = result + 1.0E+299 
MsgBox(result) 


لاستكشاف فيما إذا نتيجة عملية ما هي له أو لانهاية استخدم الطريقة N١هلء|‏ والطريقة اا١"‏ |اء| لنوع البيانات المفردة والمزدوجة .البيانات الصحيحة ٣6وعا"|‏ لا تدعم هذه 
الطرق حتى ولو كان من المحتمل أن تولد لانهاية ول.ع . فإذا ما عادت الطريقة رماوا ب مں٣‏ ۲ تستطيع أيضا اختبار إشارة قيمة اللانهاية بواسطة الطرق 
and !sPositivelnfinity‏ nfinityاNegative!‏ . في معظم الحالات ستعرض تحذير وتنهي الحسابات, فالعبارات في القائمة اللاحقة تفعل ذلك ,ضع هذه العبارات في معالج حدث 
النقر على الزر وشغل التطبيق. 
Dim var1, var2 As Double‏ 
Dim result As Double‏ 
var1 = 0‏ 
var2 = 0‏ 
result = var1 / var2‏ 
If Double.IsInfinity(result) Then‏ 
If Double.IsPositivelnfinity(result) Then‏ 
MsgBox("Encountered a very large number. Can’t continue")‏ 
Else‏ 
MsgBox("Encountered a very small number. Can't continue")‏ 


End If 
Else 
If Double.IsNaN(result) Then 
MsgBox("Unexpected error in calculations") 
Else 
MsgBox("The result is : " & result. ToString) 
End If 
End If 


لا يوجد أي من لأنواع السابقة يتم تخزينه في بايت مفرد . في بعض الحالات يتم تخزين البيانات كبايتات ويتوجب عليك التمكن من الوصول إلى البايتات المفردة(الحرة), نوع البیانات بايت 
تحفظ القيم الصحيحة في المجال من 0 إلى 255 . وتستخدم البايتات بشكل متكرر للتمكن من الوصول إلى الملفات الثنائية مثل الصور موجه"¡ وملفات الصوت كه اا؟ ١٣ا50‏ ,.لاحظ 
انك لن تستخدم البايتات للتمكن من الوصول إلى الحروف المفردة, فحروف اليونيكود (5٣عاعجة٣ةاع‏ ۵8٥ء١‏ لا) يتم تخزينها في 2 بايت. للتصریح عن متغیر كبایت استخدم العبارة 


التالية: 
Dim n As Byte‏ 
المتغير ۸ يمكن أن يستخدم في الحسابات العددية أيضا ,ولكن كن حذر ولا تسند النتيجة إلى مت متغير أخر من النوع بايت فيمكن لقيمتها ان تتجاوز المجال للنوع البايت,. اذا مهد لمتغيرين من 
النوع بايت كما يلي : 
Dim A As Byte, B As Byte‏ 
A= 233‏ 
B = 50‏ 


فان العبارة التالية سوف ینتج عنها استثناء تجاوز انٹحد overflow exception‏ 
Debug.WriteLine(A + B)‏ 
والعبارة التالية ستظهر في نافدö immediat Window‏ 


ونفس الامر سيحدث اذا حاولت اسناد قيمة للمتغير بايت بالعبارة التالية: 8 + ۸ = 8 فالنتيجة هي 283 لا يمكن تخزينها في بايت واحد ففيجوال بيسك يولد الجواب الصحيح ولكنه 
يستطيع أن يخزنها في المتغير بايت. 


بالإضافة إلى نوع البيانات بايت همر هام هار8 تزود 2008 ۷8 بنوع البيانات ممرا Byte data‏ dعnوiك(بايت‏ بإشارة) 0ر58 والذي يستطيع ان يمثل القيم ذات الإشارة في 
المجال من128- إلى 127. البايتات تبداً ببت مفرد اط 1 والذي يمتل القيمة السالبة ومجال القيم الموجبة أصبح اقل بواحد من مجال القيم السالبة لأن القيمة 0 تعتبر قيمة موجبة (حيث 
البت الأول للقيم الموجبة هو0) 


البيانات من نوع المنطقي تخزن القيم (صح/خطاً مواج ۴/٠عں٣)‏ فالمتغيرات المنطقية في جو هر هاعم" هوه ۸¡ هي ك۲ هوه"¡ (صحيحة)والتي تأخذ القيمة 1-(لصح عu٣۲)‏ والقيمة 


(0 لخطأً هءاه۴) بشكل عملي أي قيمة غير الصفر تعتبر قيمة صحيحة , يتم التصريح عن المتغيرات من النوع المنطقي كما يلي: Dim failure As‏ 
Boolean‏ 
يتم التمهيد لها إلى ماج۴ وتستخدم المتغيرات المنطقية في اختبار الشروط أو الحالات,مثل التالي : Dim failure As Boolean = False‏ 


other statements ...‏ ` 
If failure Then MsgBox(’ Couldn't complete the operation”)‏ 
يمكن أيضا دمجهم بالمعاملات المنطقية ×0٣‏ لص Ad, O, N0,‏ فالمعامل 0٤‏ يمفصل القيمة s#اووه)]‏ (تعمل كمفصل صح/خطأا)للمتغير المنطقي . فالعبارة التالية 
مفصل( عاو وه)) running = Not running‏ فإذا کان المتغیر وہاہہںم ھو صح عں۲۲ تعيد إعداده إلى ماج۴ والعكس بالعكس . هذه العبارة هي الطريق الأقصر في التشفير: 
Dim running As Boolean‏ 
If running = True Then‏ 
running = False‏ 
Else‏ 
running = True‏ 
End If‏ 
المعاملات المنطقية يتم اجراؤها على المتغيرات المنطقية وتعود بمعامل منطقي أخر كنتيجة لهم ,العبارةات التالية ستعرض رسالة اذا واحد(أو كلا( المتغيران ReadOnly and‏ 
Hidden‏ صحيحان(عں۲۲) (على مايبدو(حسب الافتراض)رااة"اءه۲م هذه المتغيرات تمتل المواصفات الموافقة لملف ما) 
If ReadOnly Or Hidden Then‏ 
MsgBox("Couldn’t open the file")‏ 
Else‏ 
statements to open and process file}‏ { 
End If‏ 
ان الشرط في عبارة أ يدمج قيمتين من النوع المنطقي بواسطة المعامل 0۸ فاذا كان واحد أو كلاهما صحيح فان التعبير الكلي هو صحيح (التعبيرالموضوع ضمن 
\Jٺتوlس)parenthesized(‏ هذه القيمة تنفى ههوم" بواسطة المعامل ماج۲ همه اه والشرط عوں ها ۴| يتم تنفيذه فقط اذا كانت نتيجة النفي 68310۸" هي صحيحة E‏ 
فاذا کان المتغیر را R200‏ صح(ع ں۲۲ )والمتغير ٣‏ هللا۳ (خطأعءاه۴ و¡ ) ستم تقيم التعبيركمايلي (اذا لیس(صح أو خطا) (۴۵156 ۲© )١۲06‏ 61 آ والقوس(صح 
خطأً)=صح وبالتالي العبارة السابقة تصبح كما يلي: 
0 ۴ والتي (ليس صحیح )=خطا(‌۴a|s(‏ 


تخزن المتغيرات النصية فقط النصوص ,والمتغيرات النصية يتم الإعلان عنها كما يلي 50١6١ 6× AS ©۲1١0:‏ ا3 تستطيع إسناد أي نص للمتغيرا×6 566| تستطيع تخزين 
تقريبا 2 غيغابايت من النصوص في المتغير النصي (والذي يقابل 2 بليون حرف) و الاسنادات التالية كلها ممكنة: 
Dim aString As String‏ 
aString = "Now is the time for all good men to come " & " to the aid of their country"‏ 
aString ="‏ 
aString = "There are approximately 25,000 words in this chapter"‏ 
aString = "25,000"‏ 
الإسناد الثاني ينشئ نص فارغ,والأخير ينشئ نص والذي يحدث لان يحتوي على أرقام عددية والتي هي أيضا حروف ,. الاختلاف بين هذين المتغيرين هو أنها كلا منها يخزن قيمة 
مختلفة عن الأخرى 


Dim aNumber As Integer = 25000‏ 
Dim aString As String = "25,000"‏ 
المتغير وا٣‏ 5ج يخزن الحروف 2,5,الفاصلة,0,0 و0 بينما المتغير ٣٠ں‏ له يخزن قيمة عدد واحد(مفرد), ولكن يمكن أن تستخدم المتغير وا٣‏ 5ج في الحسابات العددية 
والمتغير نه في العمليات النصية ,حيث أن الفيجوال بيسك سينجز التحويلات الضرورية 8 C07۷6 S¡0‏ ¥اcess2هم‏ طالما ان انئخëيار off) Jطعn Strict option‏ ( 
البيانات النصية وطرق معالجة النصوص تم مناقشتها ف الفصل الثالث عشر. 


المتغيرات الحرفية تخزن حرف يونيكود مفرد في 2 بايت(2 165ل 5إإإفي الواقع الحروف هي أعداد صحيحة قصيرة بدون إشارة((116"|ل) er5‏ و signed Sho |٣)‏ ),تستطیع 
استخدام الوظيفة ١0أال؟ C٥۸2۲)‏ لتحويل الأعداد الصحيحة إلى حروف واستخدام الوظيفة ١0اع‏ ن ()٣|©لتحويل‏ الحروف إلى القيمة العددية الصحيحة الموافقة,للتصريح عن 
متغير حرفي استخدم الكلمة ائلمحجوjة Dim char1, char2 As Char. Char‏ 

تستطيع التمهيد للمتغيرات الحرفية بإسناد إما حرف أو نص لها,في الحالة الحرفية يتم إسناد فقط الحرف الأول من النص إلى المتغير فالعبارة التالية ستطبع الحروف ج و ۸ الى 


المخرجات : 
Dim char1 As Char = "a", char2 As Char = "ABC"‏ 
Debug.WriteLine(char1)‏ 
Debug.WriteLine(char2)‏ 
وهذه العبارات ستعمل فقط إذا كان الخيار Stic option‏ معطل ,فإذا كان غير معطل فان القيم المسندة إلى المتغيرات 12۲2ع 4۸٩١‏ ۸2۲1ع ستعلم بعلامة خطأً ولإصلاح الخطأً الذي 
يمنع من ترجمة الكود غير عبارة التصريح "01 كما يلي : Dim char1 As Char = ”a”c, char2 As Char = ”A”c‏ 


عندما یکون الخيار مفعل لاتستطيع اسناد نص الى متغير حرفي وتتوقع ان يتم استخدام فقط الحرف الأول من النص ,القيم العددية الصحيحة التي توافق الحروف الأنكليزية هي أكواد الانسي 
۸81 (والتي تعني المعهد القياسي الدولي الأمريكي (عأں)ن†ءم| Americam Ntionaا Standard‏ )) للحروف المكافئة , العبارة التالية ستطبع القيمة 65 
Debug. WriteLine(Convert. Tolnt32("A"c))‏ 
اذا حولت الحرف الإغريقي » إلى عدد صحيح فان قيمته هي 945 قيمة ليونيكود مںاج۷ مهعم ل للحرف الشهير 17 هي 960 , المتغيرات الحرفية تستخدم في عمليات الربط 
بالنصوص. ونادرا ما تحفظ البيانات الحقيقية كحروف ,ولكن يمكن أن يكون عليك معالجة الحروف المستقلة في النصوص ,من وقت لأخر . نوع البيانات مما Char data‏ تعرض عدد 
من الطرق المهمة لمعالجة الحروف ولقد تم شرحها في التفصيل في الفصل الثالث عشر,. دعنا نقول أن المتغير النصي SW0۲4ككه2م‏ يحفظ كلمة سر مستخدم جديد وأنت تطلب كلمة السر 
تلك على أن تحوي على الأقل رمز خاص واحد ,مقطع الكود التالي يمسح كلمة المرور ويرفضها إذا كانت تحوي على حرف هجائي و أرقام فقط 
Dim password As String, ch As Char‏ 
Dim i As Integer‏ 
Dim valid As Boolean = False‏ 
While Not valid‏ 
password = InputBox("Please enter your password")‏ 
For i = 0 To password.Length - 1‏ 
ch = password.Chars(i)‏ 
If Not Char.IsLetterOrDigit(ch) Then‏ 
valid = True‏ 
Exit For‏ 
End If‏ 
Next‏ 
If valid Then‏ 
MsgBox("You new password will be activated immediately!")‏ 
Else‏ 
MsgBox("Your password must contain at least one special symbol!")‏ 
End If‏ 
End While‏ 


إذا كنت غير مطلع على تراكيب العبارات ."hen, For. . .N Next, or While. . . End While:‏ . .۴| تستطيع قراءة الشرح في الفصل التالي ,الكود يطلب من المستخدم إدخال كلمة 
المرور من خلال صندوق الإدخال ×0ط اام”| ,المتغيرلأاج۷ هو متغير منطقي وتم التمهيد له بالقيمة ھا۴( 

وتم وضعه لصح هu‏ من ضمن كتلة الحلقة loop‏ فقط إذا كانت كلمة 
المرور تحوي على قيمة حرفية 6۲ا ه۲همء والتي ليست حرف(أبجدي) هجائي |6١‏ أو رقم ..نحن قمنا بإعدادها بشكل أولي إلى خطأ ,لذلك فان اJحلقة While. . .End While‏ 
ستنفذ على الأقل مرة واحدة ,وسوف تستمر في الطلب من المستخدم حتى يدخل كلمة مرور صحيحة ,. الحلقة )× . . .۴0۲ تمسح المتغير النصي 0۲١,‏ س0455 حرف حرف في كل 
مرة ,لدى عملية الدوران التي تقوم بها هذه الحلقة فان الحرف التالي سيتم نسخه إلى المتغير الحرفي ۸ع ,الخاصية لأ#مه۲م 2۲5 لنوع البيانات النصية هي مصفوفة تحفظ الحروف 
المستقلة في النص ( وهي مثال أخر لفعالية البناء في نوع البيانات ) 

ومن ثم يختبر البرنامج الحرف الحالي والطريقة ١0٣اه"‏ اأوأ 0۲0۲ع 1ء| لنوع البيانات الحرفية تعود بصح إذا كانت القيمة الحرفية إما حرف أبجدي أو رقم فإذا كانت القيمة 
الحرفية الحالية رمز فان البرنامج يعمل على اعداد المتغير لاج۷ إلى صح هد٣‏ ,لذلك فان الحلقة الخارجية لن يتم تنفيذها مرة أخرى,وسوف يخرج البرنامج من الحلقة ۴0۴ .أخيرا 
سيطبع الرسالة المناسبة وإما أن يطلب من المستخدم كلمة مرور أخرى أو يغادر(يخرج 5أأں) الفئة ٥12‏ وطرقها تم شرحها بتفاصيل أكثر في الفصل الثالث عشر, 


قيم للتاريخ والوقت تخزن بشكل داخلي في تنسيق خاص,ولكن لا تحتاج إلى معرفة هذا التنسيق بالضبط ,وهي أعداد بدقة المزدوج ,الجزء الصحيح يمثل التاريخ والجزء الكسري يمٿل 
الوقت .ويصرح عن متغير ما كتاريخ (والذي يمكن أن يخزن كلا من قيمة التاريخ والوقت) كما يلي :ا02 ك4 ١0اأجإأم×ه‏ "1 والاسنادات التالية كلها صحيحة: 
expiration = #1/1/2008#‏ 
expiration = #8/27/2008 6:29:11 PM#‏ 
expiration = "July 2, 2008"‏ 
expiration = Today()‏ 
على فكرة ,الوظيفة ()2¥ ۲٠١‏ تعود بالتاريخ الحالي والوقت الحالي ,بينما تعود الوظيفة 0W)(‏ بالتاريخ الحالي,تستطيع أيضا استخلاص التاريخ الحالي باستدعاء الخاصية yجملكه]‏ 
property‏ لنوع بيانات التاريخ: 926.0 إشارة الدقة( "واو n0ي0م)‏ تخبر الفيجوال بيسك لان يخزن قيمة التاريخ للمتغير 0۸أجءأم×ه تماما مثل ما تخبر علامتي الاقتباس( " 
") فيجوال بيسك أن القيمة هي نص, تستطيع التاريخ كنص في متغير التاريخ .ولكن سيتم تحويله إلى التنسيق المناسب,إذا كان خيار التدقيق فعال ٥۸‏ و¡ 0۸أمه اام لا تستطيع أن 
تخصص التاريخ باستخدام تنسيق التاريخ الطويل(كما هو الحال في العبارة الثالثة 20081 ,2 رال" = (expiration‏ 
تنسق التاريخ يتم تحديده بواسطة الإعداد الإقليمية 5611۸95 886910٣2‏ 58[ التي جدها في لوحة التحكم(|ع ۴a"‏ اهمه )ففي الولايات المتحدة التنسيق هر 00/۷۷/"" أما في 
باقي البلدان فان التنسيق ١4/۳/۷۷‏ ذا أسندت تاريخ غير صحيح لمتغير الزمن مثل 23/04/2002 فان العبارة ستيتم وضع خط احمر تحتها وستظهر رسالة خطأ في نافذة قائمة 
المهام 0۷لاس ااا )يج7 ووصف الخطأ هو أن ثابت الزمن ليس صحيح (ل اج۷ اهم ك¡ اnهtاcons‏ ه0at)‏ نوع البيانات الزمنية مرنة بشكل مفرط ,فالفيجوال بيسك يعرف كيف 
يعامل قيم التاريخ والوقت ,لذلك ليس عليك أن تكتب كود معقد لإتمام التحويلات الضرورية.لمعالجة الوقت والتاريخ استخدم عناصر النوع الزمني همر 6ج0 والتي نوقشت بالتفصيل في 
الفصل الثالث عشر ,أو وظائف التاريخ والوقت(6 ۷/8 0 and time fuمعاا0 ١s‏ مatك)‏ والتي ما تزال مدعومة في الفيجوال بيسك 2008 تستطيع أيضا تنفيذ عمليات رياضية بقيم 
التاريخ ,تدرك الفيجوال بيسك قصدك فن طرح الأزمنة من بعضها البعض وتقيم الفرق(الاختلاف )بشكل مناسب,. والنتيجة ستكون كائن المدة الزمنية زط MNESPAN‏ | والتي تمثل 
الفترة الزمنية اوها¡ مص زا . إذا نفذت العبارة التالية فان القية 0769750 75 3© [92١6‏ ستظهر في نافذة المخرجlات :immediate widow‏ 
Dim d1, d2 As Date‏ 
d1 = Now‏ 
d2 = #1/1/2004#‏ 


Debug.WriteLine(d1 - d2) 
تمثل فترة : 1921 يوم و18 ساعة و8 دقيقة ر 576§750[§[نانية‎ |٧68۴ القيمة للكائن‎ 


أخيرا تستطيع حذف الشرط مورهاع ء۸ من عبارة "01۳ ,بعد أن تنشئ متغيرات نو عية (مخصصة)بواسطة رموز تصريح lاnlتغير‏ ت yİ variable declaration characters‏ 
معرفات نوع البياناتء۲ همك ممرt‏ هtهd‏ ,وهذه القيم الحرفية هي رموز خاصة والتي تزيلها إلى اسم المتغير للدلالة عنعاممهل نوع المتغير. لإنشاء متغير نصي تستطيع 
استخدام العبارة التالية: 6×19 ۳۷1 ۳#[ اشارة الدولار تعني (تفيد sئهاfأواو)‏ متغير نصي . لاحظ أن اسم المتغير متضمن إشارة الدولار .وهي ٠×$,‏ ۲ر" وليس ×6 ۷۲" . 
لإنشاء متغيرات لأنواع معينة استخدم واحد من حروف التصريح الظاهرة في الجدول التالي (ليس جميع معرفات الأنواع موجود في هذا الجدول ) استخدام هذه المعرفات لا يساعد في 
إنتاج كود أكثر قابلية للقراءة ولكنها تركة وء زام من الإصدارات القديمة جدا للبيسك. 


الرمز نوع البيانات أمثلة 
$ نصض‌g AŞ , messageText$ Sirin‏ 
% عدد صح )132|( counter% , Var Integer‏ 
& عدد صحیح طویل (1۸64) وہہا population& , colorValue&‏ 
! عدد کسري مفرد عاوہا؟ distance!‏ 
# عدد کسري مزدو ج عeاbاں‌ه٥ ExactDistance#‏ 
@ عدد عشري‌|ھ" ام٥ Balance@‏ 


يزودك مترجم الفيجوال بيسك بثلاث خيارات والتي تحدد كيفية معالجة المتغيرات: 

1- خيار التصریح ۸٥امه‏ ااام×ع للدلالة فيما إذا كنت ستصرح عن جميع المتغيرات. 

2- خيار التدقيق ١٥اامه‏ أءأ٣)5‏ للدلالة فيما إذا جميع المتغيرات ستكون محددة النوع. 

3- خيار الاستنتاج١‏ مامه هما للدلالة فيما إذا المترجم سيحدد نوع المتغير من خلال قيمته. 

لهذه الخيارات تأئير عميق على الطريقة التي تصرح وتستخدم فيها المتغيرات ,وستفهم ما تعمله هذه الخيارات من خلال استكشاف هذه الإعدادات .وسوف تفهم أيضا بشكل أفضل كيف 
يعامل المترجم المتغيرات. من الموصى به أن تعمل على تفعيل(١0‏ )جميع هذه الخيارات ولكن مبرمجي البيسك القديمين قد لا يأخذون بهذه النصيحة.2008 ۷8 لا تتطلب التصريح عن 
المتغيرات ,ولكن السلوك الافتراضي سيرمي باستثناء إذا حاولت استخدام متغير لم يتم التصريح عنه من قبل,إذا لم تصرح عن أسماء المتغيرات التي تظهر في كودك فان المحرر سيضع 
تحتھا خط متعر ج . تدل على ضبط خطا ,إذا حركت المؤشر فوق هذا الاسم الذي ت تحته خط سترى وصف للخطأ في صندوق أداة القائدة ×0ط م0۲٥۲‏ , لتغير السلوك الافتراضي عليك 
إدخال العبارة التالية في بداية الملف .© اiciامEx‏ هام0 وهذه العبارة يجب أن تظهر في أعلى الكود تماما وقبل أي حدث . وهي تؤثر على الكود الحالي فقط والتي تم كتابتها فيه 
وليس على المشاريع الأخرى والجديدة.وتستطيع تفعيلها بالإضافة إلى خيار التدقيق 5٣٥٤‏ لكامل المشروع من صفحة خصائص المشروع .اضغط يمين على اسم الحل في مستكشف الحل 
Explorer‏ utionا80‏ واختار من القائمة المنسدلة خصائص ك5ه|) 6م0٣۴‏ اختار اللوحة طها ماامص0۳ع وقم بتغير إعدادات الخيارات وفقا لذلك ,وكذلك تستطيع الوصول إلى النافذة 
الافتراضية للبيسك من قائمة أدوات رمع" ءامه٣‏ اختار خيارات ١١‏ 0نام0 وعندما يظهر صندوق الحوار خيارات ك« هام0 مدد في اللوحة lليږارuة Projects And Solutions‏ 
ومنھ انتقل إلى لوحة طھ tsا ۷B Deu‏ كما في ه[9[]): هنا تستطيع اعداد القيم الافتراضية لجميع الخيارات»ء وستبقى تستطيع تغير القيم الافتراضية لمشروع خاص من خلال 
صفحة خصائص المشروع كعوهم ءعااممها۴ sاعهزدام‏ فطريقة عدم التصريح عن المتغيرات تم معالجتها في البيسك 2008 من خلال الخيارين التصریح أاام×E‏ والتدقیق 
t٤‏ فخیار التصريح وهو فعال يطلب أن تكون جميع المتغيرات المستخدمة في الكود مصرح عنها مسبقا.بينما خيار التدقيق وهو فعال أيضا يتطلب أن تكون جميع المتغيرات محددة 
النوع ,أي أن خيار التدقيق ۸٥أمه‏ ء٣5‏ إذا كان فعال لا يسمح باستخدام النوع العام والذي يستطيع أن يخزن أي نوع من البيانات,القيمة الافتراضية لعبارة التصريح هي ٥١١N(‏ ) فعال 
وهي أيضا القيمة المؤضى بهاذاما. أما إذا لم تقوم بتفعيل هذين الخيارين فانك تستطيع استخدام المتغيرات دون أن ترج نا ربتخم المترخ لمر العام . 

فإذا تم تفعيله 0N(‏ )يجب عليك التصريح عن المتغيرات بنوع محدد من المتغيرات والمتغير سيقبل قيم من نفس النوع فقط ولكن مع خيار 
التدقيق غير فعال تستطيع مثلا استخدام متغير نصي والذي يحفظ عدد في حسابات عددية كما يلي : وستكون النتيجة هي :12500 


Dim a As String = "25000"‏ 
Debug.WriteLine((a) / 2)‏ 
اما اذا تم تفعيل الخيار 6610۸ 5۳16 فيتوجب عليك كتابة العبارة السابقة كمايلي: 


Dim a As String = "25000" 
Debug.WriteLine(CDbl(a) / 2) 

بطريقة مماثلة تستطيع استخدام المتغيرات العددية في الحسابات النصية :وستكون نتيجة العبارة التالية هي :32.03 
Dim a As Double = 31.03‏ 


a = a + 1 " 
Debug.WriteLine(a) 
ام0 فعال فلن تسطيع دمج المتغيرات‎ ٥ اما اذا كان خيار التدقيق 0۸ آ5۲‎ 
کڪ‎ 1 
| Application | 
فو‎ Build output E 
Compile 2 Browse... ) || | 
Debug Compile Options: 
Option explicit. Dption strict 
References oe 5 
Resources Dption compare: Option infer: 
a Binary | [on ا‎ 
warning configurations: 
| Settings Natification 
| Signin Mehe ت‎ 
Late binding; call could fail at run time None e 
kl EE Implicit type; object assumed None ا‎ 
E Use of variable prior to assignment warming م‎ 
Funetion#Operator without return value warming ا‎ 
ا‎ 0 Unused local variabla warming e 
Instance variable accesses shared member e ari n 
Recursive operator or property access warming مه‎ 
Duplicate or overlapping catch blocks warming م‎ 
Disable all warnings 
Treat all warnings as errors 
vw] Generate XML documentation file 
Build Events... 
Advanced Compile Options 


Wpilons 


Envirormerik Default project settingz: 
=1: Projects and 5 olution 
General 
YB Defaults Dption Strict: 
Tet Editar 
Windows Forms Designer 
Device Tools Option Inter: 


Dptian Explicit: 


Dptian Compare: 


LI Show all settings 


المتغيرات العمومية كأ ها ج۷ بدون نوع بيانات ثابت ,كان الخبز والجبن لمبرمجي البيسك 6 وما قبلها , العموميات ك هة ۷هي ضد المتغيرات المحددة النوع بشكل صارم 
esاvariab yd‏ راstit,‏ فتستطيع تخزين أي نوع من البيانات من حرف مفرد إلى الكائن ,إذا بدأت مع البيسك 2008 عليك أن تستخدم المنغيرات المحددة النوع , 

العموميات ءا" هاج هو الجزء الرئيسي من تاریخ البيسك,العموميات أو المتغيرات الكائنية کانت آنواع البيانات الأكثر مرونة لأنها تستطیع أن تت تتكيف )accommodate(مg‏ جمیع 
الأنواع (فالمتغيرات التي يتم التصريح عنھا ککائنات أو لا یتم التصريح عنها على الإطلاق ) تعامل في الفيجوال بيسك تبعا لمحتوى المتغير الحالي فاذا أسندت قيمة صحیحۂ g٥٣‏ مin†t‏ 
لمتغير من ألكائني , فالبيسك سيعامله كعدد صحيح |٣696۲‏ وهكذا ,ولن اشرح في هذا النوع أكثر من ذلك ,(فهي تستطيع تخزين جميع أنواع البيانات) 


المتغيرات في البيسك هي أكثر من كونها أسماء أو مكان لحفظ القيم ,انها كينونات ءهانا "ص ذكية "٤‏ هوااه)"| ولا تخزن فقط البيانات وإنما تعالج قيمها أيضا يمكن أن تكون قد سمعت بان 
المتغيرات في البيسك2008 هي كائنات واليك لماذا ,المتغيرات التي تحفظ الزمن يتم التصريح عنها بمثل(أو بشكل مشابه ل ع لاء وج ) كما يلي: 
Dim expiration As Date‏ 
ومن ثم تستطيع أن تسند قيمة تاريخ إلى المتغير 6×6۴۵110١‏ بعبارة مشابهة للتالية : #1/1/2003# = ١0ا‏ 8×6۵ حتى الآن لا يوجد شيء غير عادي هذه هي الطريقة التي تستخد 
فيها المتغيرات مع أية لغة أخرى بالإضافة إلى حفظ التاريخ ,مهما يكن المتغير ۴3[0۸أم×ه يستطيع معالجة التواريخ ,التعبير التالي سيعود بتاريخ جديد مع ثلاث سنوات للأمام ٥ع‏ 
0 مص ءاجر عن التاريخ الذي تم تخزينه في تعبير المتغير: 
expiration.AddYears(3)‏ 
والتاريخ الجديد يمكن إسناده إلى متغير زمني أخر : 
Dim newExpiration As Date‏ 

newExpiration = expiration.AddYears(3) 
ان 00۷68۲5 طريقة تعرف كيف تضيف عدد من السنين إلى متغير التاريخ ويوجد طرق أخرى مشابهة محجوزة لإضافة أشهر ,أو أيام ,وهكذا ,بالإضافة إلى الطرق فان النوع تاريخ‎ 
والتي تعود بشهر التاريخ وعدد الأيام على الترتيب,تماما مثل الخصائص والطرق للأدوات التي‎ Month يعرض الخاصيات متل خاصيات الأشهر والأيام sهناممهام رج2 لمج‎ 
)لمتغیر ما‎ ہمھmbeمrsتانوکملا(‎ methods and ماroمe تضعها على الفورم,لإنشاء واجهة تطبيقك المرئية هام١¡ امvisu ication'sاممه. الطرق والخصائص كا‎ 
تعرض الدالة (الوظيفة )التي تبنى في فئة ممثلة المتغير نفسه,.‎ 
سيكون عليك كتابة بعض الكود الجاد لاستخراج الأشهر من متغير التاريخ .أو لإضافة عدد من الأيام ,لتستكشف‎ طاuا٤-۸‎ functionality( بدون دالة(وظيفة) البناء الداخلي )لنت‎ 
تحتاجھا في تطبیق ما‎ يتلاf‎ un ctiona ty أو علامة ترقیم(اboصs ۸ unctuatioم) الکثیر من الدالات‎ digit اوا فيما إذا قيمة حرفية هي حرف أبجدي ١6))ه| أو رقم‎ re u 
والذي يعالج التاريخ ,أو الأعداد ,أو النصوص بشكل مسبق تم بناءهاً في المتغيرات نفسها,لا تدع المصطلحات ¥وهام”أ"۲ه† تخيفك , فكر في المتغيرات كحافظات للقيم وللتمكن من‎ 
الوصول إلى دالاتها بتعابير مثل السابقة ,ابداً باستخدام المتغيرات كحافظات للقيم وعندما تريد أن تعالج هذه القيم فقط اكتب اسم المتغير متبوعا بنقطة لرؤية قائمة بالأعضاء التي تعرضها‎ 
ا|١)عو#٣ ,في معظم الحالات ستكون قادر على استكشاف ما تفعله هذه الأعضاء بقراءة أسمائها فقط . لغات البرمجة تستطيع معاملة المتغيرات البسيطة بفعالية أكثر من الكائنات, فعدد‎ 
لثم(int اموم‎ vari صحيح ما يأخذ 2بايت(بشكل افتراضي الأعداد الصحيحة تمثل بالصحيح القصير (5۸0۲)16) في الذاكرة والمترجم سيولد كود فعال جدا لمعالجة متغير صحيحع اطع‎ 
إضافته إلى قيمة رقمية أخرى,مقارنته بعدد صحيح أخر ,وهكذا) فإذا صرحت عن متغير صحيح واستخدمته في كودك ءج كمثل(ك),الفيجوال أستوديو لا تنشئ كائن لتمثيل هذه القيمة,بل‎ 
تنشئ متغير جديد لتخزين الأعداد الصحيحة مثل البيسك القديم ,بعد استدعاء واحدة من طرق المتغير فان المترجم يصدر الكود لإنشاء الكائن الفعلي ,هذه العملية تدعى البوكسينغ وہ|×0ط‎ 
للمتغير من‎ convenience of manipulating (الصندقة)أو التغليف وتقدم القليل من البطء(التأخير رهام ) والتي تعتبر غير مهمة(تافهة هاا وأوم|)مقارنة بالمعالجة المريحة‎ 
هbزjec†-هااع خلال طرقه, كما رأيت لان إن المتغيرات هي كائنات ,وهذه ليست مفاجئة ولكنه مبدأً غريب(4 4 0)بالنسبة للمبرمجين الذين ليس لديهم خبرة في البرمجة كائنية التوجه 0ع‎ 
التي تسمح لك بقراءة أو وضع‎ ٣٠× هي كائن وتوفر الخاصية‎ ٦٠×80× ودام (فالكائن كينونة تعرض بعض الدوال بوسائل الطرق والخصائص,. فأداة صندوق النص‎ rammin9 
نص على الأداة ,أي اسم يتم إتباعه بنقطة واسم أخر يدل كءهاfاوأوعلى كائن والاسم الأخر هو الخاصية أو الطريقة للكان.)‎ 
Converting Variable Types 
In many situations, you will need to convert variables from one type into another. Table 2.4 shows the methods of the Convert class 
that perform data-type conversions. 


تحتاج في بعض الحالات إلى تحويل المتغيرات من نوع إلى أخر _الجدول التالي يعرض طرق فئة التحويل وهام ٥١۷6۲٤‏ والتي تنجز تحويلات أنواع البيانات. 


Converts lts Argument 1o تحول معاملها النسبي إڵى‎ Method الطريتة‎ 
Boolean ToBoolean 

Byte TOBYTE 

Unicode character TOCHAR 

Date TODATETIME 

Decimal TODECIMA 

Double TODOUBLE 


Short Integer (2-byte integer, Int16) TOINT16 
Integer (4-byte integer, Int32) TOINT32 
Long (8-byte integer, Int64) TOINT64 
Signed Byte TOSBYTE 
Single TOSINGLE 
String TOSTRING 
Unsigned Integer (2-byte integer, Int16 TOUINT16 
Unsigned Integer (4-byte integer, Int32) TOUINT32 
Unsigned Long (8-byte integer, Int64) TOUINT64 
لتحويل القيم العددية الى قيمة‎ K0 I)(,ةحيحص لتحويل قيمة رقمية إلى قيمة‎ C1"٤)(( بالإضافة إلى طرق فئة التحويل ,ما تزال تستطيع استخدام وظائف تحويل البيانات للفيجوال بيسك‎ 


عددية من النوع مزدوج عاطاه0 , K5۸9)(‏ لتحويل القيم العددية إلى مفرد, وهكذا) يمكن أن تلقي عليها نظرة في مستندات مايكروسوفت إذا كنت تكتب تطبيق جديد في 2008 ۷8 
استخدم فئة التحويل الجديدة للتحويل بين أنواع البيانات ,لتحويل متغير تم التمهيد له كما يلي: 
Dim A As Integer‏ 
إلى مزدوج استخدم الطريقة ٤‏ ا00B‏ 00" لفئة التحويل: 
Dim B As Double‏ 
B = Convert. ToDouble(A‏ 
افترض انك صرحت عن عددين صحيحين كما يلي: 
Dim A As Integer, B As Integer‏ 
A=23‏ 
B=7‏ 
النتيجة للعملية 8 / ۸ ستكون قيمة من النوع المزدوج وهي : 328571428571429 
Debug.Write(A / B)‏ 


النتيجة قيمة مزدوجة والتي تزود بالدقة الأكبر المكنة ,إذا حاولت إسناد النتيجة إلى متغير لم يتم الإعلان عنه كمزدوج ,وخيار التدقيق فعال١ه‏ وأ ١0أمه‏ أءأم)6 فان الفيجوال بيسك 
سيولد رسالة خطأ ,ولا نوع من أنواع البيانات يستطيع أن يقبل هذه القيمة بدون أن تفقد الدقة,لذا لتخزين النتيجة إلى متغير مفرد عليك تحويلها بشكل صريح بعبارة مثل التالية: 
Convert. ToSingle(A / B)‏ 
تستطيع أيضا استخدام الوظيفة ()351 ©5۴86 لتحويل المتغير أو التعبير من نوع إلى أخر , الوظيفة )5661451 مطابقة للوظيفة ()6 67 .دعنا نقول أن المتغیر ۸ تم 
التصريح عنه كنص ويحفظ القيمة 34.56 العبارة التالية تحول القيمة للمتغير ^ إلى قيمة عشرية وتستخدمها في الحسابات: 
Dim A As String = "34.56"‏ 
Dim B As Double‏ 
B = DirectCast(A, Double) / 1.14‏ 


التحويل ضروري فقط إذا كان خيار التدقيق فعال١ه‏ ك¡ ١0نأمه‏ اعام ,ولكن من الجيد التدريب على انجاز تحويلاتك بشكل صريح.المقطع التالي يشرح ما يمكن أن يحدث فيما إذا 
اعتمد وهام كودك على التحویلات الٹضمنية implicit conversions‏ . 


في بعض الحالات,سيقوم البيسك 2008 بتحويل أنواع البيانات بشكل أوتوماتيكي , ولكن ليس دائما 'لنقول انك قد قمت بالتصريح عن متغيران وقمت بعملية التمهيد لهما,أحدهما صحيح 
والأخر مزدوج بالعبارات التالية: 
Dim count As Integer = 99‏ 

Dim pi As Double = 3.1415926535897931‏ 
إذا كان خيار التدقيق غير فعال؟fه tit option is‏ وأسندت المتغير ام إلى count‏ فان القيمة الجديدة للمتغير امه ستكون 3 (القيبة المزدوجة تم تدويرها إلى قيمة صحيحة تبعا إلى 
نوع المتغير )على الرغم من أن هذا ما تريده في معظم الحالات,إنه إغفال gi(oversight)‏ خطأً غير مقصود والذي يقود إلى نتيجة غير صحيحة .فإذا كان خيار التدقيق فعال S٣‏ 
is n‏ tionمە‏ وحاولت إتمام نفس الإسناد السابق ,فان النتزجم سيولد رسالة خطأ ليدل على أنك لا تستطيع تحويل المزدوج إلى صحيح .نفس الرسالة هي آن خيار التدقيق لا يسمح 
بالتحويلات الضمنية من المزدوج إلى زص Option Strict disaاloسs impاicit conversions from Double to Integer.‏ ,عندما یکون خیار التدقیق فعال S|)‏ 
ك¡ "امه فان البيسك سينجز التحويلات التي لا تنتج أي فقدان في الدقة magnitude yÎ (accuracy (precision))‏ الأهمية(العظم) هذه التحويلات تدعى التحويلات الواسعة 
widening conversions‏ عندما تسند قيمة صحيحة إلى مزدوج لن يتم فقدان دقة أو كمية magnitude‏ .وهذا تحويل واسع لأنه يذهب من نوع أضيق إلى نوع أوسع,من ناحية أخرى 
عندما تسند قيمة مزدوجة إلى متغير قيمة صحيحة بعض الدقة سيتم فقدانها(الأرقام العشرية يجب أن تقطع أو تبتر dعاععہں)‏ ) هذا التحویل انضیJ narrowing conversion‏ لأن 
يذهب من نوع البيانات الذي يمتل المجال الأوسع للقيم إلى نوع البيانات الذي يمكن أن يمتل المجال الأضيق للقيم .ولأنك أنت المبرمج ,وأنت المسئول ويمكن انك تريد على ما يبدو أن تقطع 
الدقة حيث انه لا يوجد حاجة لها. الجدول التالي يلخص التحويل الواسع الذي يقوم به الفيجوال بيسك بشكل أوتوماتيكي لك : 


نوع البيانات الأصليeصمTy Original Data‏ نوع البيانات lلٺوسg‏ eصTyp Wider Data‏ 
Object Any type‏ 
Short, Integer, Long, Decimal, Single, Byte‏ 
Double‏ 
Integer, Long, Decimal, Single, Double Short‏ 
Long, Decimal, Single, Double Integer‏ 
Decimal, Single, Double Long‏ 
Single, Double Decimal‏ 
Double Single‏ 
String Char‏ 
رأيت حتى الآن كيف تستخدم البيانات أنواع البيانات الأساسية للغة التنفيذ المشتركةR‏ °1 ,جميع أنواع البيانات تعرض الطريقة ToString‏ والتي تعود بقيمة المتغير(رقم أو 
تاريخ)كنص,لذلك يمكن استخدامها مع نصوص أخرى في كودك. الطريقة وأ 5ه تنسق الأعداد والتواريخ في عدة طرق ويمكن أن تكون واحدة من أكثر الطرق المعروفة التي تحتاج 


إليها,تستطيع استدعاء هذه الطريقة قيمة إلى نص بدون أي معامل نسبي كما فعلنا حتى الآن لتحويل أي. 
الطريقة و١أ٣)5هآ‏ تقبل معاملات نسبية اختيارية "۲9۷"6 ا2٠‏ امه والتي تحدد كيف سيتم تنسيق القيمة كنص, متلا .تستطيع تنسيق الأعداد كعملة بإضافة إليها سابقة إشارة 
مناسبة(مثلا إشارة الدولار,)وعرضها برقمين عشريين . وتستطيع عرض التاريخ في عدة هيئات.بعض التقارير تتطلب أن تكون الكمية السالبة مغلفة في قوسين ¡|١‏ dإ#sهاع"م‏ 
parentheses‏ ,الطريقة TosString‏ تسمح لك بعرض التاريخ بأي طريقة ترغبها, لاحظ أن Tostring‏ هي طريقة ولیست خاصية وو بق تيع أن تسندها إلى متغير نصي أو 


اختيارية ToString(formatString),‏ المعامل النسبي هوالمحدد للتنسيق (النص الذي يحدد التنسيق نفسه تماما الذي تم تطبيقه المتغير)و هذا المعامل“ النسبي يمكن أن بگۆن رمز 
نوعي يطابق التنسيق المحدد مسبقا(نص التنسيق القياسي ,كما يسمى)أو نص من قيم حرفية والتي لها معنى خاص في عملية تنسيق القيم العددية (صورة تنسيق النص 0۲١2‏ ۲6 U٥أم‏ ۾ 
9)) تستخدم النصوص بالتنسيق القياسي كو” ا٣ء format‏ 0 "ها لمعظم خيارات التنسيق المشتركة,وتستخدم صورة التنسيق للنص لتخصيص متطلبات تنسيق غير 
عادية,لتنسيق القيمة9959.95 ككمية دولار تستطيع استخدام العملة القياسية التالية: 


Dim Amnt As Single = 9959.95 
Dim strAmnt As String 
strAmnt = Amnt. ToString("C") 


أو استخدم صورة التنسيق العددي للنص التالي: 

strAmnt = Amnt. ToString("$#,###.00") 
۸0۸-0 .8. في المثال الأول يعين عملة وينسق القيم العددية كعملة,اذا كنت تستخدم نسخة ويندوز غير أمريكية‎ ”©٥” كلا العبارتين سوف تنسق القيمة ك 59,959.95 المعامل النسبي‎ 
07اه فان رمز العملة سوف يختلف تبعا للعملة التي تستخدمها في نسخة الويندوز خاصتك ,استخدم أداة اللغة والإقليم في لوحة التحكم لتغير العملة إلى واحدة من العملات التي لديك في‎ 
والتي لھا‎ of اiterals‎ and charac ٣5 مركبة من حروف ورموز‎ rhe picture ٥۲٣2 s٣|ہg الويندوز,والكمية سيتم تنسيقها في إشارة العملة التي لديك,. تنسيق الشكلي للنص‎ 
معن خاصن في التشسق ,اشر الدؤ ار لش امعت خاصن وستظھر کا هي , الرمز# هو حافظ رقمي (یحل مکانه رقم) وجمیع الرموز # سيتم استبدالها بأرقام عددية,بداية من اليمين‎ 
بإدخال الفاصلة بين‎ ۴١۲۳2 .اذا كان العدد لديه أرقام اقل من المحددة في النص فان الرموز الزائدة إلى اليسار سوف يتم تجاهلها,الفاصلة تخبر وتخبر وظيفة التنسيق ١0ا ”ںد؟‎ 
الألوف,.النقطة هي الفاصلة العشرية ,والتي يتم إتباعها بحافظتي رقم على خلاف الإشارة # فان الصفرل هو حافظة خاصة ۲مل|اه۸مacام اهم ج إذا كان لا يوجد أرقام كافية‎ 
لجميع الأصفار التي حددتها فان الصفر سيظهر في مكان الأرقام المفقودة. فإذا كانت القيمة الابتدائية مثلا 9959.9 فان العبارة الأخيرة ستنسقها كالتالي :$9,959.90 , إذا استخدمت‎ 
الحافظة# مكان الصفر فان النص الذي سيعود بواسطة طريقة التنسيق لQ١هطأع" أحة"۲ه۴ لديه رقم عشري واحد فقط0‎ 


الطريقة و١‏ أ٣)‏ 5ه" لنوع البيانات العددية تميز نصوص التنسيق العدية القياسية التي تظهر في الجدول التالي 

حرف التنسيق الوصف الأمثلة 
)12345.67(.10Strin C7 ( (ãlne (Currency Corc‏ ترجع بالقيمة : $12,345.67 
Dor d‏ اDecima‏ (عشري) Strin 9) D”(‏ ا .(123456789) ترجع بالقيمة : .123456789 

لا تعمل إلا مع القيم العددية الصحيحة 
format E ore‏ Scientific(تنسیق‏ علمیي) )12345.67(.r0Strin E”)‏ ترجع بالقيمة :004 + 1.234567٤‏ 
format F orf‏ ointمp-۴iXed(تنسيق‏ بفاصلة عائمة ثابتة) ( String‏ 12345.67(.1) ترجع بالقيمة :12345.67 
General format Gorg‏ (تنسیق عام) تعود بقيمة إما ذات فاصلة عائمة ثابتة أو تنسيق علمي 
Number format Norn‏ (تنسیق عددي) ( N”‏ Strinا.(12345.67)‏ ترجع بالقيمة :12,345.67 
Percentage P orp‏ (نسبة مئویة) )0.12345(.r08trin 0N”)‏ ترجع بالقيمة 12,35% 
oun drip Ror r‏ R(خطوة‏ التقریب) (1/3).ToString(R”)‏ ترجع بالقيمة :0.33333333333333331 
إذا كان و ٣هاfأمممء‏ 6 المحدد 6 ستعود بقيمة بأرقام عشرية اقل 0.333333333333333 

format X or x‏ اHexadecima(التنسیق‏ الست عشري) 250.ToString(X”)‏ ترجع بالقیمة۴۸ 


حروف التنسيق يمكن أن تتبع بأي عدد صحيح ,فإذا كان موجود فان القيم الصحيحة تخصص عدد أمكنة الرقم العشري التي تعرضها, الدقة الافتراضية هي رقمين عشريين ,الحرف © 
ينسق النص الناتج عن الطريقة و١أ٣5ه ٦‏ ليعود بنص يمتل العدد كقيمة عملة ,العدد الصحيح الذي يتبع © يحدد عدد المراتب العشرية,التي سيتم عرضها,إذا لم تزود برقم فان الافتراضي 
أن تظهر رقمين عشرين بعد الفاصلة العشرية,افترض أن المتغير هں اج۷ تم التصريح عنها كعشري اه"٠أءه0,وقيمته‏ هي 5596 ومن ثم فان التعبير (0©7 78106.109۲١0)‏ 
سيعود بالنص التالي : 55,596.00 إذا كانت قيمة المتغير 5596.4499 فان التعبير (3 7406.۲051۲1١)‏ سيعود بالنص .$5,596.450 ,لاحظ أن ليس جميع النصوص 
المنسقة تطبق على جميع أنواع البيانات, مثلا فقط القيمة الصحيحة يمكن تحويلها إلى التنسيق الست عشري ,ونص التنسيق 0 يعمل مع القيم الصحيحة فقط ,يوجد نصوص تنسيق و أرقام 
للتاريخ أيضا ,وتم مناقشتها في الفصل التالثت عشر من هذا الكتاب ,. 


إذا كانت حروف التنسيق المجدولة في الجدول السابق غير مناسبة للتحكم بالمظهر الذي تريده للقيمة العددية ,تستطيع أن تقدم صورة التنسيق التي تخصصها أنت للنصوص, صورة تنسيق 
اللصوص تحوي على رموز خاصة والتي تسمح لك بتنسيق قيمك تماما كما تريد,الجدول التالي يجدول رموز صور التنسيق, 


حرف التنسيق الوصف الأمثلة 
0 تعرض حافظة مكان لصفر لديه آقل أرقام من الأصفار في التنسيق فالنتيجة ستكون بأصفار ليس لها معنى(أصفار 
ابا 

# تعرض حافظ مکكان لرقم تعمل على تبديل الرمز فقط بأرقام لها معنى 
الفاصلة العشرية تعرض رمز النقطة 

, فاصل المجموعة تفصل مجمو عات الأرقام مثلا 1,000 

% رمز النسبة المئوية ٣تعرض‏ الرمز % 

Exponent notation (سٺJا)Jيلدll jaر E +0, e0,‏ تنسق المخرجات لرمز الأس(الدليل) 

1 حرف آبجدي تستخدم مع سلاسل التنسيق التقليدية مثل( )٣٥ W1٣٥‏ ٣|(سطر‏ جدید) 
عارضات النص الحرفية O aS PEE Literal string‏ 

8 أ ن علامتى الاقتباس أو الفاصلة العليا 
Displays‏ تعرض أي نص ضمن علامتي الاقتباس او د 


فاصل مقطعي Section separator‏ تحدد مخرجات مختلفة اذا كانت القيمة العددية التي سيتم تنسيقها موجبة, أو سالبة,أو صفر 
العبارات التالية القيم التي بالخط العريض : 

Dim Amount As Decimal = 42492.45 
Debug.WriteLine(Amount. ToString("$#,###.00")) 


$42,492.45 
Amount = 0.2678 
Debug.WriteLine(Amount.ToString("0.000")) 
0.268 
Amount = -24.95 
Debug.WriteLine(Amount. ToString("$#,###.00;($#,#H##.00)")) 
)$24.95( 


في المقطع السابق استخدمنا المتغيرات لتخزين القيمة المستقلة ,وكمسألة واقعية,معظم المبرمجين يخزنون مجموعات من البيانات والتي تنتمي إلى أنواع مختلفة ,فمثلا برنامج لموازنة 
رصيد دفتر الشيكات يجب أن يخزن عدة قطع من المعلومات لكل شيك(رقم الشيك»الكمية,التاريخ,الشيك المدفوع,وهكذا)جميع هذه القطع من المعلومات ضرورية لمعالجة الشيك,وبشكل 
مثالي رااجع ل¡ يجب تخزين هذه المعلومات مع بعضها,تستطيع إنشاء أنواع بيانات مخصصة والتي تتركب من عدة قيم باستخدام التراكيب ۲5ء لع ,تركيب الفيجوال بيسك يسمح لك 
بجمع القيم المتعددة لأنواع البيانات الأساسية ومعالجتها جملة( هامس ج ءو)فمثلا كل شيك في تطبيق موازنة رصيد دفتر الشيكات يتم تخزينه في تركيب منفصل(أو سجل)كما في 
الشكل(2.3) عندما تستدعي شيك معطى,تحتاج إلى جميع المعلومات المخزنة في التركيب, 


دربب الستل 


Check Number Check Date Check Amount Check Paid To 


مصغرفة السحلات 


4712701 


04/14/01 | 200.00 | VISA 
04721701 430.00 | Rent 


الشکل(23)رسم توضیحی( ۵اه |۳) يمثل التركيب 
لتعريف تركيب في الفيجوال بيسك, استخدم عبارة التركيب ١‏ ں اع ں٣5‏ والتي لها القوام التالي: 


Structure structureName 
Dim variable1 As varType 
Dim variable2 As var Type 


Dim variablen As varType 
End Structure 
وعبارة آ3 يمكن أن يتم تبديلها بأي من محددات(معدلات) الوصول ءوهع‎ C18 يمكن لد 81۷66( أن يكون أيا من أنواع البيانات المدعومة بواسطة لغة التنفيذ المشتركة‎ 
أو العام اا۴ . من أجل التراكيب فقط فان عبارة 5# مكافئة ل ان۴ ,بعد هذا التصريح سيكون لديك نوع بيانات جديد يمكن أن تستخدمه في‎ ۴اivهاعصاخلا‎ modifiers 
أن تعلن عن متغيرات من هذا‎ عيطتستو,)امtعوه‎ ٣5, 0هuااعs,‎ ه١ يمكن أن يستخدم في أي مكان تستخدم فيه الأنواع الأساسية(١0 0ء‎ 50610۲6۸8١6 تطبيقك. اسم التركيب‎ 
النوع وتعالجها كما تعالج جميع المتغيرات الأخرى( مع بعض الزيادة القليلة في الكتابة ). التصريح عن التركيب 666۸8660 الموضح في الشكل(23) هو التالي:‎ 
Structure CheckRecord 
Dim CheckNumber As Integer 
Dim CheckDate As Date 
Dim CheckAmount As Single 
Dim CheckPaidTo As String 
End Structure 


يجب أن يظهر هذا التصريح خارج أي إجراء,فلا تستطيع التصريح عن تركيب ۲١‏ ںامںء)S‏ في إجراء فرعي أو وظيفة,. حالما يتم التصريح, فان التركيب 666۸۸660۲۵ يصبح نوع 
بيانات جديد لتطبيقك,وللتصريح عن متغير من هذا النوع »استخدم عبارة مثل التالية: 
Dim check1 As CheckRecord, check2 As CheckRecord‏ 
لتسند قيمة لواحد من هذه المتغيرات,يتوجب عليك أن تسند قيمة لكل واحد من مركباته بشكل منفصل(تدعى الحقول) والتي يمكن أن تصل أليها بدمج اسم المتغير واسم الحقل يفصل بينهما 
نقطة كما يلي: 275 = check1.CheckNumber‏ 
عمليا حالما تكتب النقطة مجاور اسم المتغير ,فان قائمة بجميع أعضاء التركيب ستظهر .كما هو مبين في الشكل(4ء2), لاحظ أن التركيب يدعم العديد من المكونات بذاته حيث انه ليس عليك 
كتابة كود من أجل المكونات التالية:6مy‏ ه6 ,ءاج ۹uع‏ و و” أ٣‏ 5ه" ولكنها مكونات قياسية لأي كائن تركيب,وتستطيع استخدامها في كودك ,فكلا الطريقتين همر 66و 
Strin9‏ ستعود بنص مثل ( 860۲0 166۸۸8 © )۳۴0۲۳۸۸/81 P6661416‏ تسطيع ان تقدم معالجتك الخاصة للطريقة و١٣۲5‏ والتي ستعود بنص أكثر أهمية: 
Public Overrides Function ToString() As String‏ 
Return "CHECK # " & CheckNumber & " FOR " & CheckAmount.ToString("C")‏ 
End Function‏ 
اكتب هذا التعريف للوظيفة ضمن التركيب أي كما يلي(إليك الكود كاملا): 
Structure CheckRecord‏ 
Dim CheckNumber As Integer‏ 
Dim CheckDate As Date‏ 
Dim CheckAmount As Single‏ 
Dim CheckPaidTo As String‏ 
Public Overrides Function ToString() As String‏ 
Return "CHECK # " & CheckNumber & " FOR " & CheckAmount.ToString("C")‏ 
End Function‏ 
End Structure‏ 
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الشكل(24)متغيرات لاأنواع مخصصة تعرض مکوناتها کخصائص‎ 
لما تفهم أن التراكيب تشبه كثرا الكائنات التي تعرض حقولها كخصائص ومن ثم تعرض(تقدم )العديد من الأعضاء الخاصة بها هي,العبارة التالية تمهد للمتغير 8660۲6 666۸| كما‎ 
يلي:‎ 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
Dim check2 As CheckRecord 
check2.CheckNumber = 275 
check2.CheckDate = #9/12/2008# 
check2.CheckAmount = 104.25 
check2.CheckPaidTo = "Gas Co." 
End Sub 
Dim Checks(100) As CheckRecord تستطيع أيضا أن تنشئ مصفوفات من التراكيب بتصريح مثل التالي(المصفوفة ستناقش لاحقا في هذا الفصل):‎ 
كل عنصر في هذه المصفوفة هو تركيب ويقوم بتثبت جميع الحقول لشيك معطى. للتمكن من الوصول إلى العنصر الثالث من المصفوفة استخدم الترميز التالي:‎ 
Checks(2).CheckNumber = 275 
Checks(2).CheckDate = #9/12/2008# 
Checks(2).CheckAmount = 104.25 
Checks(2).CheckPaidTo = "Gas Co." 


تستخدم القيمة لاشيء مع المتغيرات الكائنية وتدل على أن المتغير لم يتم إسناد أي قيمة له بعد(لم يتم التمهيد له) إذا كنت تريد أن تعزل مأهأمموءهءاك 0) متغير كائني ما عن الكائن 
الذي يمثله أسنده إلى لاشيء و١أطاه‏ العبارات التالية تنشئ متغير كائني والذي يمثل الفرشاة استخدمه ومن تم اعمل على تحريره: 
Dim brush As SolidBrush‏ 
brush = New SolidBrush(Color.Blue)‏ 
use brush object to draw with}‏ { 
brush = Nothing‏ 
العبارة الأولى تصرح عن المتغير |505١‏ , عند هذه النقطة المتغير 505 لاشيء , العبارة الثانية تمهد للمتغير 5۴056١‏ بواسطة المشيد المناسب(تم تمهيد الفرشاة إلى لون معين) بعد تنفيذ 
العبارة الثانية ,المتغير 5058 أصبح يمثل الآن كائن تستطيع الرسم به وباللون الأزرق. بعد استخدام الكائن لرسم شيء ما تستطيع تحريره وذلك بإسناد له القيمة لاشيء R610‏ ,اذا 
كنت تريد أن تستكشف فيما إذا المتغير ألكائني مسند له قيمة أم لا استخدم المعاملات 5| و ا©[©5] كما في المثال التالي: 
Dim myPen As Pen‏ 
more statements here}‏ { 
If myPen Is Nothing Then‏ 
myPen = New Pen(Color.Red)‏ 
End If‏ 
المتغير 76١‏ تم التمهيد له بواسطة ١0ع‏ ںو هم‌المشيد [6W‏ فقط اذا لم يتم التمهيد له من قبل ,اذا أردت أن تحرر المتغير فيما بعد في كودك تستطيع إسناده إلى لاشيء بمعامل 
الإسناد(=) عندما تقارن الكائن بلاشيء ,[©1١4‏ مهما يكن لا تستطيع استخدام معامل المساواة (=), عليك استخدام المعاملات 8| و ا5۸6 
Examining Variable Types‏ 


بالإضافة إلى إعداد أنواع المتغيرات والوظائف للتحويل بين هذه الأنواع يقدم الفيجوال بيسك الطريقة هم١٠6‏ التي تعود بنص مع نوع المتغير: (۸132| صحيح 32,عشري 
اك" اه0 ,وهكذا)أي متغير يقدم هذه الطرق بشكل ألي,وتستطيع استدعاءها كما يلي: 
Dim var As Double‏ 
Debug.WriteLine("The variable’s type is " & var.GetType.ToString)‏ 


العبارة في نافذة المخرجات ستكون: 6ا0 5. 8⁄56 5¡ he Va riabاê'S 1y p€‏ ,يوجد أيضا المعامل operator‏ 667€ والذي يقبل 4۲918 4۸ 8ج كمعامل نسبي 
النوع ويعود بكائن النوع لنوع البيانات المحدد,الطريقة ل0م" ممر ۲ء6 والمعامل 0۲اaاممo‏ ممpر‏ ٣اه‏ تستخدم على الأغلب في قوام ۴| كما يلي: 
If var.GetType() Is GetType(Double) Then‏ 
code to handle a Double value}‏ { 
End If‏ 
لاحظ أن الكود لا يرجع بأسماء نوع البيانات مباشرة.عوضا عن ذلك يستخدم القيمة المعادة بواسطة المعامل ٣0ا۲2‏ هم0 عمل ١ه‏ لاستخلاص نوع فئة المزد و ج6اطل 7.50 ys16ر؟S‏ 
ومن ثم يقارن هذه القيمة بنوع المتغير بواسطة المعامل ءا( أو 5®61]) 


مجموعة أخرى من وظائف الفيجوال بيسك والتي تعود بأنواع بيانات المتغيرات ,ولكن ليس النوع بالضبط,فهي تعود بقيمة صح/خطاً ,لتدل على أن المتغير لديه قيمة عددية أو تاريخ أو 
مصفوفة, أم لا,. الوظائف التالية تستخدم للتحقق من إدخال المستخدم,بالإضافة إلى البيانات المخزنة في الملفات,قبل أن تقوم بمعالجتها, 


تعود بصح اذا کان معاملها النسبي هو عدد رقن مح وطويل,مفرد ,مز دو ج»و عشري)استخدم هذه الوظيفة لتحديد فيما إذا المتغير لديه قيمة عددية قبل تمريره إلى الإجراء الذي يقبل قيمة 
عددية أو قبل معالجته كعدد, العبارة التالية تبقى تطالب المستخدم من خلال صندوق الإدخال ٥×‏ u†8ںمہ|‏ بقيمة عددية ,ويتوجب على المستخدم أن يدخل قيمة عددية أو ينقر على زر إلغاء 
للخروج ,طالما أن المستخدم يدخل قيم غير eal‏ صندوق الإدخال سيبقى يبرز للمستخدم ويطالبه بإدخال قيمة عددية: 
Dim strAge As String ="‏ 
Dim Age As Integer‏ 
While Not IsNumeric(strAge)‏ 
strAge = InputBox("Please enter your age")‏ 
End While‏ 
Age = Convert.Tolnt16(strAge‏ 
المتغير 57۸08 تم التمهيد له بقيمة ue‏ اج۷ ume‏ n-0nم‏ غير عددية لذلك فان الحلقة مما ٥اW‏ ۸۵ع. . .هاا سيتم تنفيذها مرة على الأقل . 


| تعود بصح اذا كان المعامل النسبي هو تاريخ صحيح (أو وقت) التعبير التالي يعود بصح لأنها تمثل جميعها تاريخ صحيح: 
IsDate(#10/12/2010#)‏ 
IsDate("10/12/2010")‏ 
IsDate("October 12, 2010")‏ 
اذا تعبير التاريخ يتضمن اسم اليوم كما في التعبير التالي , فان الوظيفة 5526[ ستعود بخطاً: 
IsDate(’ Sat. October 12, 20107”) ’ FALSE‏ 


تعود بصح اذا كان معاملها النسبي مصفوفة. 


لا تجبر أبدا الفيجوال بيسك على التصريح عن المتغيرات (ولا تزال كذلك) وهذا شيء جيد بالنسبة للمبتدئين في البرمجة , ولكن عندما تكتب تطبيقات ضخمة,ستكتشف أن التصريح عن 
المتغيرات ضروريا,سوف يساعدك على کتابة كود واضح وفعال بشكل قوي جدا ,ويبسط أيضا عملية ترجمة الكود وتصحيح الأخطاء ,فالتصريح عن المتغيرات يخلص الكود المصدر من 
معظم ومجمل الأخطاء المعروفة و الغير ضرورية,دعنا نتفحص التأثيرات الجانبية لاستخدام المتغيرات غير المصرح عنها في تطبيقك ,لتكون ن قادر غل عدم التصريح عن المتغيرات 
عليك أن تعمل على اعداد خيار التصريح بحيث يصبح غير فعال 0f‏ ه0 nدنامه‏ اأعام×E‏ ,لنفرض انك تستخدم العبارات التالية .تحويل اليورو إلى الدولار الأمريكي: 
Euro2USD = 1.462‏ 

USDollars = amount * Euro2USD 
ں ع‎ ۲٥2089 في المرة الأولى التي يشير فيها الكود إلى اسم المتغير ۲0620565[ يعمل البيسك على إنشاء متغير جديد ومن ثم يستعمله كما لو انه تم التصریح عنه,.افترض أن المتغیر‎ 
في واحد من هذه الأماكن والبرنامج لا يعمل على إجبار التصريح عن المتغيرات فان المترجم سيحمل متغير جديد ,ويسند له‎ ع۲١20‎ 0S8 يظهر في عدة أماكن في تطبيقك ,اذا ما كتبت‎ 
ستكون صفر ,اذا كان التطبيق يجبر التصريح عن المتغيرات ,فان المترجم سيتذمر ١أعام ۳ه (من‎ ع۲٥20‎ 5S8 القيمة صفر ,ومن ثم يستخدمه,. أي كمية تم تحويلها بواسطة المتغير‎ 
. لم يتم التصريح عنه)وسوف تضبط الخطأ حالا وأنت في محرر الكود‎ ع۲٥20‎ 5S أن المتغير‎ 


بالإضافة إلى النوع للمتغيرات أيضا مجال للرؤية,فالمجال(الرؤية)للمتغير هو المقطع من التطبيق الذي يمكنه رؤية ومعالجة المتغير . فإذا ما تم التصريح عن متغير ما ضمن إجراء فقط 
الكود في الإجراء المحدد يتمكن من الوصول إلى المتغير ,وهذا المتغير غير موجود لباقي التطبيق ,عندما يتم تحديد مجال المتغير ضمن إجراء فانه يدعى محلي(|اهعه|)افترض انك تعمل 
على كتابة الكود لحدث النقر على الزر لحساب مجموع جميع الأعداد في المجال 0 إلى 100 ,واحدة من المعالجات الممكنة يوضحها الكود التالي : 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click‏ 
Dim i As Integer‏ 
Dim Sum As Integer‏ 
For i = 0 To 100 Step 2‏ 
Sum = Sum + i‏ 
Next‏ 
MsgBox("The sum is " & Sum.ToString)‏ 


End Sub 
المتغير أ والمتغير 5# هي متغيرات محلية للإجراء 6© _80]61,اذا حاولت أن تضع قيمة المتغير 50# من ضمن إجراء آخر فان البيسك سیتذمر(" هام" ٥ء)من أن المتغير‎ 
لم يتم الإعلان عنه,(أو اذا جعلت خيار التصريح عن المتغيرات غير فعال ١0امه أءأام×۴) سيحمل متغير أخر ١1ا8 وسيمهد له بإسناد القيمة صفر له,ومن ثم يستخدمه,ولكن هذا لن‎ 
يؤثر على المتغير "ں؟ الذي في الإجراء)6[ا©_80]]0۸1| ويقال عن المتغير 50| ان لديه مجال على مستوى الإجراء:#مهءء ام۷٥ا-u6 لمهم أي انه مرئي ضمن الإجراء‎ 
وغير مرئي خارج هذا الإجراء, . في بعض الأحيان تحتاج إلى استخدام المتغير بحدود مجال محدد بحيث يكون متاح إلى جميع الإجراءات ضمن ملف صغير هذا المتغير والذي تم التصريح‎ 
عنه خارج أي إجراء يقال أن لديه مجال على مستوى الموديل(مم0ءء |۴۷6!ا-هااله") بشكل مبدأي تستطيع التصريح عن جميع المتغيرات خارج الإجراء الذي يستخدمهم,ولكن هذا‎ 
سيقود إلى مشكلة ,. كل متغير في الملف سيستطيع الوصول إلى أي متغير ,وتحتاج إلى أن تكون حذر بشكل كبير بان لا تغير القيمة للمتغير بدون سبب مقنع ,فالمتغيرات التي تحتاج إليها‎ 
فقط في إجراء(متل حلقة العداد 8۲5أ٣ اهت م٠ه!ا) يجب ان يتم التصريح عنها في الإجراء.نوع أخر للمجال وهو المجال على مستوى البلوك(المتغيرات على مستوى الكتل) ,المتغيرات‎ 
أو الحلقة هي محلية في البلوك وغير مرئية خارج البلوك. . دعنا نعدل مقطع الكود السابق بحيث يحسب مجموع المربعات, لتنفيذ الحساب ,نقوم أولا‎ ¡f المقدمة في البلوك متل عبارة‎ 
في قوام الحلقة‎ Value المتغير‎ TTT بحساب مربع کل قيمة ومن تم ذ نجمع المربعات,مربع كل قيمة يتم تخزينه في متغير والذي لن يتم استخدامه خارج الحلقة‎ 
ونجعله محلي لهذه الحلقة المحددة كما هو الحال في القائمة التالية:‎ 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
Dim i, Sum As Integer 
For i = 0 To 100 Step 2 
Dim sqrValue As Integer 
sqrValue = i * i 
Sum = Sum + sqrValue 
Next 
MsgBox("The sum of the squares is " & Sum) 
End Sub 
End Class 
اذا حاولت استخدامه قبل عبارة 0ع أو بعد العبارة )×6 سيرمي الفيجوال بيسك استثناء‎ ۴. . . Next loop المتغير 18 غير مرئي خارج بلوك حلقة‎ 
في الحلقة .أخيرا في بعض الحالات فان‎ 3i" المتغير عل اة۲۷ 4و يحفظ قيمتهبين الدوران المتغيرات على مستوى البلوك لا يتم التمهيد لها في كل دوران. وحتى لو كان يوجد عبارة‎ 
gاlobطaا التطبيق الكلي يجب أن يتمكن من الوصول إلى متغير معين,في هذه الحالة فان المتغير يجب أن يتم الإعلان عنه كمتغير عام اا۴ والمتغيرات العامة لديها مجال عاممم0عء‎ 
فهي مرئية من أي جزء في التطبيق ,للإعلان عن متغير عام استخدم العبارةء اا۴ مكان العبارة "0 وأكثر من ذاك لا تستطيع الإعلان عن متغير عام ضمن الإجراء,اذا كان لديك عدة‎ 
Public modifier Jgصولl نماذج في تطبيقك وتريد من الكود في أحد النماذج ان يرى متغير محدد في نموذج أخر استخدم محدد‎ 
الكلمة المحجوزة cاااu٥۴ تجعل المتغیر متاح لیس فقط من کامل المشروع ,إنما أيضا لمشاري يع أخرى(بعبارة أخرى,متاح لجميع الإجراءات في لأي موديل ف في المشروع)المتغيرات التي‎ 
لذلك لماذا‎ ۴e۹ سيتم التصريح عنھا كدق‎ (refer ^٥٥ تريد استخدامها على كامل مشروعك,ولكن لا تصبح متاحة للمشاريع الأخرى والتي تستعمل هذا المشرو ع کمر جع(‎ 
نحتاج إلى العديد من أنواع المجالات,؟ سوف تعمل على تطوير فهم أفضل للمجال وأي نوع من المجال يجب أن يتم استخدامه لكل متغير كلما انخرطت في مشاريع ضخمة ,بشکل عام‎ 
,عليك المحاولة لتحديد مجال متغيراتك قدر المستطاع,اذا تم التصريح عن جميع المتغيرات ضمن الإجراءات,تستطيع استخدام نفس الاسم لتخزين قيمة مؤقتة,في كل إجراء وتكون واثق من‎ 
أن متغيرا ت إجراء واحد لن تتداخل مع الإجراءات الأخرى,حتى ولو استخدمت الاسم نفسه,‎ 


بالإضافة إلى النوع والمجال للمتغيرات عمر ه6 |†ه؟|| والذي هو الفترة التي تحتفظ ۸ ه۲6 هذه المتغيرات بقيمتھا,المتغيرات المصرح عنھا كع اا۴ تكون موجودة بعمر التطبيق 
,المتغيرات المحلية التي ضمن الإجراءات بعبارة "01۳ أو هه۴۷ حياتها محددة بالإجراء,عندما ينتهي الإجراء,المتغير المحلي يتوقع عن الوجود أءأ×ه 0 ههه و الذاكرة المقسومة 
cated memory‏ ااهتعود إلى النظام ,بالطبع ,نفس الإجراء يمكن استدعاءه مرة أخرى ,في هذه الحالة المتغيرات المحلية يتم إعادة إنشاءها ويتم إسناد القيم لها من جديد,اذا ما استدعى 
إجراء , إجراء أخر ,فان متغيراته المحلية يتم حفظها بينما يكون الإجراء المدعو مشغل ,.تستطيع أيضا أن ڌ تجبر المتغيرات المحلية على أن تحفظ قيمتها بين استدعاءات الإجراء 
etween procedure calls‏ باستخدام الكلمة المحجوزة ٥اه‏ افترض أن مستخدم تطبيقك يستطیع إدخال قيمة عددية في أي وقت,واحدة من المهمات المنجزة بواسطة التطبيق ,هي 
حساب معدل القيم العددية,بدل إضافة جميع القيم في كل مرة يقوم المستخدم بإضافة قيمة جديدة ويقسمها على العداد تستطیع حفظ الكلي اهاه)ايعمل ,بواسطة الوظيفة() RunningAvg‏ 
كما في الكود التالي: 
Function RunningAvg(ByVal newValue As Double) As Double‏ 
CurrentTotal = CurrentTotal + newValue‏ 
Totalltems = Totalltems + 1‏ 
RunningAvg = CurrentTotal / Totalltems‏ 
End Function‏ 
عليك التصريح عن المتغيرات اهاه ٣" هاهااt†هصوو ©۲۸۲١‏ خارج الوظيفة لذلك فان قيمها ستيتم حفظها بين الاستدعاءات ,بشكل اختياري تستطيع التصريح عنهم في الوظيفة 
باستخدام الكلمة المحجوزة ۸٥۷۷0۲١‏ ٥اه‏ كما في الكود التالي : 
Function RunningAvg(ByVal newValue As Double) As Double‏ 
Static CurrentTotal As Double‏ 
Static Totalltems As Integer‏ 
CurrentTotal = Current Total + newValue‏ 
Totalltems = Totalltems + 1‏ 
RunningAvg = CurrentTotal / Totalltems‏ 
End Function‏ 
الفائدة من استخدام المتغيرات المحلية هو أنها تساعدك على تقليل عدد المتغيرات الكلي في التطبيق ,كل ما تحتاج إليه هو تشغيل وظيفة المتوسط موه۷6۲هج والتي تزود بها الوظيفة 
RUA ۷9 )(‏ بدون جعل متغيراتها مرئية إلى باقي التطبيق ,وهكذا لا تخاطر بتغير قيمة المتغيرات من ضمن إجراءات أخرى ,المتغيرات المصرح عنها في المودیلعاںلهص 
خارج أي إجراء تأخذ تأثير ها عه م)ها dureهعدrم‏ عندما يتم تحميل الفورم وتتوقف عن الوجود عندما لا يتم تحميل الفورم.اذا تم تحميل الفورم مرة أخرى يتم التمهيد لمتغيراتها 
كما لو أنها تم تحميلها للمرة الأولى,. 
يتم التمهيد للمتغيرات عندما يتم التصريح عنها تبعا لنوعها,التغيرات العددية يمهد لها إلى صفر والمتغيرات النصية يمهد لها إلى نص فارغ و١‏ ا٣ء‏ ۸ هاط ,والمتغيرات الكائنة إلى لاشيء. 


بعض المتغيرات لا تغير القيمة خلا تنفيذ البرنامج ,هذه المتغيرات هي توابت والتي يمكن أن تظهر عدة مرات في كودك,مثلا اذا كان البرنامج يقوم بعمل حسابات رياضية,فان قيمة ال ام 
(. . .3.14159) يمكن أن تظهر عدة مرات,فبدلا من كتابة القيمة 3.14159 مرة بقد مرة ,تستطيع أن تعرف متغير كثابت†١هأو"هء‏ وتسميه أم(۳۳), وتستخدم اسمه في كودك , العبارة 
التالية أسهل في الفهم 
circumference = 2 * pi * radius‏ 

من العبارة التالية: 

circumference = 2 * 3.14159 * radius 
,لسببين:‎ E mT 

1- التوابت لا تغير القيمة :للامان في المستقبل . بعد أن يتم التصريح عن الثابت ,لا تستطيع تغير قيمته في العبارات اللاحقة,لذا عليك أن تكون واثق من القيمة المخصصة في تصريح 

الثابت ستأخذ تأثير ها في كامل البرنامج. 
2- المتغيرات يتم معالجتها بشكل أسرع من المتغيرات .عندما يتم تشغيل البرنامج فان قيم الثوابت لا يتم البحث عنها,.يستبدل المترجم أسماء الثوابت بقيمها,وبالتالي يتم تنفيذ البرنامج بشكل 
اسرع . 


الطريقة التي تصرح بها عن الثوابت مشابهة تماما لطريقة التصريح عن المتغيرات,ما عدا انك تستخدم الكلمة المحجوزة 6651 بالإضافة إلى التزويد باسم الثابت ,ويجب عليك أيضا أن 
تقدم القيمة .كما يلي : 
Const constantname As type = value‏ 
للثوابت أيضا مجال وتستطيع استخدام الكلمات المحجوزة عأج۷أ۴ واا۴u‏ فالثابت أم مثلا . يصرح عنه عادة في الموديل كعام عiاان۴‏ كه ماuافمم).ولذلك‏ كل إجراء يمكن أن 
يصل إليه . 
Public Const pi As Double = 3.14159265358979‏ 
اسم الثابت ,متبوعا بنفس القاعدة لاسم المتغيرات. قيمة الثابت هي قيمة حرفية,أو تعبير بسيط مكون من قيمة عددية, أو ثابت نصي ومعاملات, على فكرة» لا تستطيع استخدام الوظائف في 
التصريح عن الثوابت فالتعريف التالي غير مaبMath.Log(Math.Pi):Jg‏ = Const Pi‏ 
,القيمة الخاصة التي استخدمتها في هذا المتال لا تحتاج إلى تخزينها في ثابت, استخدم ال pi‏ أحد مكونات الفنة وووام 1ج( للرياضيات بدلا عن ذلك(۴۱٥ Math.‏ (. يمكن للثوابت ان 
تکون نصوص,مثل التالي: 
Const ExpDate = #31/12/1997#‏ 
Const ValidKey = "A567dfe"‏ 


المصفوفة هي تركيب قياسي لتخزين البيانات في أي لغة برمجة ,بينما المتغيرات المستقلة تستطيع أن كينونات, مثل عدد مفرد ,تاريخ واحد,أو نص مفرد, المصفوفات تستطيع أن تثبت 
مجموعات من البيانات في نفس النوع(مجموعة اعداد,سلسلة تواريخ,وهكذا). للمصفوفة اسم .كما تفعل مع المتغيرات وقيم يتم تخزينها فيها ويمكن الوصول إليها من خلال فهرس رقم الخانة 
×۸6 ,متلا تستطيع استخدام المتغير لتخزين 4۲۷ا52راتب شخص: 

Salary = 34000‏ 
ماذا اذا كنت ترغب في تخزين رواتب 16 مستخدم؟ تستطيع إما أن تصرح عن 16 متغير 2۲۷1اS2‏ و 4۲۷2اهS‏ وهكذا حتى 4۲/16 اه8 أو التصريح عن مصفوفة ذات 16 عنصر 
.المصفوفة مشابهة للمتغير :لها اسم وقيم متعددة. وكل قيمة يتم تعريفها بواسطة فهرس(قيمة عددية صحيحة) والذي يتبع اسم المصفوفة ضمن الأقواس.كل قيمة مختلفة هي عنصر من 
المصفوفة.اذا كانت مصفوفة sه‏ هاه الرواتب تثبت الرواتب ل16 مستخدم ,العنصر (5)0ه٣‏ هاه يثبت راتب الموظف الأول ,العنصر (2۲۴5)1اه5يثبت راتب الموظف الثاني 
,وهكذا حتى العنصر Salaries)15(‏ 


بشكل غير مشابه للمتغيرات البسيطة , المصفوفات يجب أن يتم الإعلان عنها بالعبارة (0i٠‏ أو عام اا۴ ) متبوعة باسم المصفوفة وفهرس العنصر(الخانة) الأخيرة للمصفوفة ضمن 

أقواس خذ المثال التالي: ٣هgه)"| AS‏ (15)ا2اة5 ص9 هذه مصفوفة تحوي على 16 عنصر(خانة) من(0 إلى 15 ) اسمها إآ5[8 (راتب), ونوع بياناتها أعداد صحيحة.ف 

کک هو راتب الموظف وا الموظف الثاني پوهكذا . کل ما عليك فعله هو أن تتذكر :ما العنصر الذي يطابق كل راتب,ولكن حتى هذه البيانات يمكن 
Dim Names(15) As String‏ 


: ومن ثم اسند القيم لكلا المصفوفتين‎ 
Dim Names(15) As String 
Dim salary(15) As Integer 
Names(0) = "Joe Doe" 
Salary(0) = 34000 
Names(1) = "Beth York" 
Salary(1) = 62000 


Names(15) = "Peter Smack" 
Salary(15) = 10300 1 
هذا التركيب أكثر إحكام وراحة من لاستحواذ على كود بمنتهى الصعوبة يحفظ أسماء ورواتب الموظفين في متغيرات. جميع عناصر المصفوفة لها نفس النوع من البيانات,وبالطبع‎ 
كذلك,عندما يكون نوع البيانات هو كائن , فان العناصر المستقلة تستطيع أن تحوي أنواع مختلفة من البيانات(كائنات , نصوص,اعداد,وهكذا). المصفوفات غير محددة بأنواع البيانات‎ 
الأساسية,يمكن الإعلان عن مصفوفات تستطيع أن تحفظ أي نوع من البيانات بما فيها الكائنات فالمصفوفة التالية تحفظ الألوان التي تستطيع استخدامها فيما بعد في الكود كمعاملات نسبية‎ 
لوظائف (دالات متنوعة) والتي ترسم الأشكال:‎ 
Dim colors(2) As Color 
colors(0) = Color.BurlyWood 
colors(1) = Color.AliceBlue 
colors(2) = Color.Sienna 
فئة اللون تمتل الألوان ومن الخاصيات التي تقدمها هي أسماء الألوان التي تميزها,.التقنية الأفضل لتخزين الأسماء والرواتب هو إنشاء تركيب ومن الإعلان عن مصفوفة و من هذا النوع‎ 
.كما في التركيب التالي الذي يثبت الأسماء والرواتب:‎ 
Structure Employee 
Dim Name As String 
Dim Salary As Decimal 
End Structure 
ادخل التصريح السابق في ملف كود الفورم,وخارج أي إجراء ومن ثم صرح عن المصفوفة في إجراء كما بلي:‎ 
Dim Emps(15) As Employee 


كل عنصر في المصفوفة يقدم حقلان ,وتستطيع أن تسند القيم لها باستخدام عبارة مثل التالية: 
Emps(2).Name = "Beth York"‏ 
Emps(2).Salary = 62000‏ 
الفائدة من استخدام مصفوفة التركيب بدلا من المصفوفات المتعددة في ان المعلومات المرتبطة ستيتم دائما إيجادها تحت نفس الفهرس,فالكود أكثر إحكاما ولا تحتاج إلى حفظ العديد من 
التمهيد(اسناد قيمة اولية(للمصفوفات Initializing Arrays‏ 


كما تستطيع ان تمهد للمتغيرات في نفس الخط الذي تصرح فيه عنهم.تستطيع ايضا التمهيد للمصفوفات ,بالمشيد اع ں٣†ورهت‏ التالي(ممهد المصفوفة ٣i6اه)أ٣| 2٣۵¥‏ عند 
استدعائها): 
Dim arrayname() As type = {entryO, entry1, ... entryN}‏ 
اليك مثال الذي يعمل على التمهيد لمصفوفة نصية: 
Dim Names() As String = {Joe Doe”, ”Peter Smack”}‏ 
هذه العبارة مكافئة للعبارة التالية والتي تصرح عن مصفوفة ذات عنصرين ومن تم تضع قيم فيهم : 
Dim Names(1) As String‏ 
Names(0) = "Joe Doe"‏ 
Names(1) = "Peter Smack‏ 
عدد العناصر في الأقواس المجعدة sأع)اععاط‏ رامuء‏ التي تتبع التصريح عن المصفوفة تحدد أبعاد المصفوفة ,ولا تستطيع اضافة عناصر جديدة للمصفوفة بدون إعادة تحجيمها,إذا 
احتجت الى اعادة تحجيم المصفوفة في كودك بشكل ديناميكي ,عليك استخدام العبارة 860 سيتم شرحها فيما بعد, في هذا الفصل .مهما يكن تستطيع ان تغير القيمة في العناصر 
الموجودة كما تريد 1ھ رگا تسل ت أي مصفوفة أخرف: 


العنصر الأول للمصفوفة لديه الفهرس صفر(0 ×06[) ,والعدد الذي يظهر بين الأقواس في عبارة 01١‏ أقل بواحد من السعة الكلية(حجم المصفوفة ) للمصفوفة وهو الحد الأعلى( ممم 
(bund‏ ( أو النهاية العليا ٤1۳ا‏ هم من )للمصفوفة ,وفهرس العنصر الأخير للمصفوفة هو الحد الأعلى لها(فرںهط همم )ويعطى بالطريقة 0١١‏ 60606۲80© والتي تقبل 
كمعامل نسبي بعد المصفوفة وتعود بالحد الأعلى لهذا البعد,والمصفوفات التي رأيناها حتى الأن هي مصفوفات ذات بعد مفرد( اة”٣مأومم"‏ ك-6٠‏ ه0) وبالتالي المعامل النسبي الذي يجب 
ان يمرر الى الطريقة(اقراً الحد الأعلى Get UpperBound‏ )هو القيمة صفر 0 ,.عدد عناصر المصفوفة الكلي (طول المصفوفة )يعطى بالطريقة( إقرا الطول أو عاا66) والتي 
تقبل ايضا البعد كمعامل نسبي, الحد الأعلى للمصفوفة التالية هو 19 وسعتها المصفوفة (حجم جم المصفوفة هو 20 عنصر) 

Dim Names(19) As Integer 
هل والعنصر الأخير هو(5)19٥ "هل فاذا ما نفذت العبارات التالية ستظهر لك النتائج التي بالخط العريض في نافذة المخرجات:‎ "٥5)0(, العنصر الأول هو‎ 


Debug.WriteLine(Names.GetLowerBound(0)) e 
Debug.WriteLine(Names.GetUpperBound(0)) 

Names(0) = "First entry" 

Names(19) = "Last entry" 


لتسند قيمة لأول وأخر عنصر من المصفوفة ١٥هل‏ إستخدم العبارات التالية 


اذا اردت ان تعمل دورار عنا ١‏ فوفة استخدم حلقة مثل التالى: 
ردت ان وران اصر م 


Dim i As Integer, myArray(19) As Integer 
For i = 0 To myArray.GetUpperBound(0) 
myArray(i) = i * 1000 
Next 
العدد الحقيقي للعناصر في أي مصفوفة يعطى بالتعبير التالي:‎ 
myArray.GetUpperBound(0) + 1 


تستطیع ايضا استخدام خاصية طول المصفوفة thوnهL‏ لاستخلاص عدد العناصر(احصاء العناصر)فالعبارة التالية تطبع عدد العناصر التي في المصفوفة MAY‏ في نافذة 
المخرجات 

Debug.WriteLine(myArray.Length) 
وعدد العناصر وفهرس للعنصر الاخير في المصفوفة ؟اذا كان الامر كذلك .تستطيع جعل المصفوفة أكبر‎ 26۲٠-6 هل ما تزال مشوش بشان مكيدة الفهرس صفر ه٠۳٠۴٥١عءء و" أ×‎ 
نوعا ما وتتجاهل العنصر الاول ,فقط كم واثق من انك لن تستخدم العنصر صفر في كودك,فلا تخزن قيمة في العنصر(۸۲۲۵۷)0 وبالتالي تستطيع تجاهل هذا العنصر فللحصول على‎ 
ومن تم تجاهل العنصر الاول.‎ 0" M¥۸۲۴a۷)20( A5 عشرين 20 عنصر ,اعلن عن مصفوفة ذات 21 عنصركما يلي: عمرا‎ 


المصفوفات ذات البعد الواحد كالتي عرضناها حتى الان جيدة لتخزين سلاسل بيانات طويلة و ذات بعد واحد (کالاسماء ,درجات الحرارة)ولكن كيف ستخزن قائمة من المدن مع متوسط 
درجة حرارتها في مصفوفة ؟ أو الأسماء والنقاط المكسوبة في لعبة ,أو السنوات و الربح(الفائدة)؟ أو البيانات مع أكثر data with more than two dimensions)jıدعڊ ja‏ (؟ مثل 
المنتجات والاسعار والوحدات المخزنة(المتبقية في المخازن) سوف تخزن سلاسل من ألبيانات المتعددة الأبعاد,. تستطيع ان تخزن نفس البيانات بشكل اكثر ملائمَة في مصفوفة متعددة 
الأبعاد بقدر ما تحتاج(أي بكلام اخر عدد ابعاد المصفوفة تحددها الحاجة لهده الابعاد اوالبيانات المتنوعة التي ستخزنها في هذه المصفوفة) ,الشكل(2ء5)يبين لك اثنين من المصفوفات 
الأحادية البعد arrays‏ اdimensiona-one‏ واحدة منھم مع اسماء المدن والأخرى مع درجات الحرارة, واسم المدينة الثالثة سيكون ٥۷)2(,‏ ودرجة حرارتها ستكون 
"emperature)2).‏ .المصفوفات ذات البعدين yج4۲۲‏ اج٣‏ اوم8" ك-۷0 ۸ سيكون لديها فهرسين,الاول يعرف(يحدد) الصفوف(ترتيب المدن في المصفوفة) والثاني سيعرف 
الاعمدة( درجة حرارة المدينة ) لتتمكن من الوصول الى اسم درجة حرارة المدينة الثالثة في المصفوفة ثنائية البعد استخدم الفهارس التالية: 


اسم المدينة الثlلثة:‏ )0 Temperatures(2,‏ 
متوسط درجة حرارة المدينة الثlلثة:‏ )1 Temperatures(2,‏ 
او 


1 م درجات الحرارة(جإ] 


ت ن ټم ييا ظ ها ٿ@ ي 


مصفوفة ذاٽ بعدین صصفوفتاں- کل منهها احادية البقد 
الشكل(5<2)يبين مصفوفتان-كل منهما أحادية البعد (على اليسار) والمصفوفة ثنائيةالبعد(ذات بعدين) المكافئة لهما(على اليمين وهي(درجات الحرارة(1+7)) 
الفائدة من استخدام المصفوفات المتعددة الأبعاد هو أنها وبشكل مبدئي اسهل في الادارة والترتيب,افترض انك تكتب لعبة ما. وتريد ان تضبط موقع قطع معينة على لوحة اللعب . كل مربع 
على اللوحة يتم تعينه بواسطة عددين :وهما الاحداثيات الافقية والعموديةءعاة and verticها c0۲”‏ اrizontaدh‏ .التركيب الواضح لضبط مربعات اللوحة هو مصفوفة ثنائية 
البعد(مصفوفة ذات بعدين)۷ه٣۲ه‏ اة”مأوئممص ال-٥‏ والتي فيها الفهرس الاول مطابق لعدد الصفوف ,والفهرس الثاني مطابق لعدد الأعمدة,. 
يمكن التصريح عن هكذا مصفوفة كما يلي: A5 |١606‏ (9 ,804۲۵0)9 97| فاللوحة مركبة من عشرة صفوف وعشرة أعمدة كماهو واضح في المصفوفة. ِ 
عندما يتم تحريك احد القطع من مربع في الصف الاول والعمود الاول الى المربع في الصف الثالث والعمود الخامس,تستطيع اسناد القيمة 0 للعنصر الذي يوافق الموقع الأولي(البدائي)(كان 
توشر هذا المربع برسم دائرة وبداخلها رقم 0 بواسطة قلم أحمر) 
Board(0, 0) = 0‏ 
وتسند القيمة 1 الى المربع الذي تم تحريك القطعة اليه ليدل على الموقع الجديد من اللوحة©®(كأن تؤشر هذا المربع برسم دائرة وبداخلها الرقم واحد وذلك بواسطة قلم أحمر)) 
Board(2, 4) = 1‏ 
لتستكشف فيما اذا كانت القطعة على المربع اليساري العلوي 6٣2ں۹ء‏ ؟6ا-مه] عليك استخدام العبارة التالية(فالمكان الذي توجد فيه القطعة تسند له القيمة واحد والمكان E‏ 0 
القطعة تسند له القيمة صفر(أو المكان الغير موجودة فيه القطقة)): 
If Board(0, 0) = 1 Then‏ 
piece found}‏ { 
Else‏ 
empty square}‏ { 
End If‏ 
هذه الملاحظة يمكن تطبيقها على باقي المصفوفات التي لها أكثر من بعدين فالعبارة التاليه تحمل مصفوفة ثلاثية لابعاد× ا٣78‏ (القالب)(فيها 1000 عنصرفي كل بعد 10 عنصر أي 
10x10×10(‏ (( 
Dim Matrix(9, 9, 9)‏ 
يمكن ان تتخيل المصفوفة ثلاثية اهاور ع" ۸۲۴6-١‏ )البعد كمكعب مركب من صفائح مصفوفات ثنائية البعد اجہمأوممصiل-0 tw‏ aidامov‏ كما يظهر في الشكل(6۰2) 


| ظل 


Data(7) Datal7, 3) 


الشكل(2ء6)رسم تخطيطي يبين (من اليسار الى اليمين)المصفوفات أحاديةالبعدوثنائية البعد- وثلاثية البعد(موضحة مع الفهارس) 


يمكن التمهيد للمصفوفة المتعددة الابعاد بعبارة واحدة ,كما فعلت تماما مع المصفوفة احادية البعد,فقط عليك ادخال فواصل كافية في الاقواس التي تبع اسم المصفوفة لتدل على رتبة 
المصفوفة,فالعبارات التالية تمهد لمصفوفة ذات بعدين ومن ثم تطبع زرج من عناصرها: 


Dim a(,) As Integer = {10, 20, 30}, 11, 21, 31}, 02, 22, 32} 
Console.WriteLine(a(0, 1)) ' تطبع سوف‎ 20 
Console.WriteLine(a(2, 2)) ' تطبع سوف‎ 32 


ستعمل على تقسيم أسطر اسناد أبعاد المصفوفة في عدة اسطر لتجعل الكود أكثر قابلية للقراءة. فقط ادخل رمز تقسيم الاسطر(الشحطة المنخفضة) عند نهاية كل سطر متواصل كما يلي: 
Dim a(,) As Integer = {{10, 20, 30}, _‏ 
A 2,‏ 
}32 ,22 ,12{ 


الشكل(72)رسم توضيحي للمصفوفة ج مع فهارس الخانات 


إذا كان للمصفوفة اكثر من بعد ,تستطيع استكشاف عدد الابعاد بواسطة الخاصية ©8[۸§,لنقول انك اعلنت عن مصفوفة لتخزين اسماء ورواتب المستخدمين باستخدام العبارة التالية: 
Dim Employees(1,99) As Employee‏ 


لتعرف عدد أبعاد المصفوفة 6s‏ عرمام E"‏ استخدم العبارة التالية 
Employees.Rank()‏ 
ولكن كي لايظهر خطأ, عليك اولا تعريف تركيب واليك الكود كاملا : 


Public Class Form1 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles Button1.Click 
Dim Employees(1, 99) As Employee 
Debug.WriteLine(Employees.Rank.ToString()) 
End Sub 
Structure employee 
Dim name As String 
Dim salary As Single 
End Structure 
End Class 
عندم تستخدم خاصية الطول ۷أ6۲م١۲م ومع[ لاستكشاف عدد عناصر المصفوفة المتعددة الابعاد ستحصل على العدد الكلي للعناصر في المصفوفة(مثلا 100×2) ولكن لايجاد عدد‎ 
العناصر في بعد معين ,استخدم الطريقة Q١هأع" اوم اام ومرر لها كمعامل نسبي البعد الذي تريد ايجاد عدد عناصره,. التعبير التالي سيعود بعدد العناصر في كل بعد من اتعاد‎ 
المصفوفة:‎ 
Debug.WriteLine(Employees.GeLeng(0)) 2 :Jوٺل! النتيجة ستكون في النافذة المباشرة للبعد‎ 


النتيجة ستكون في النافذة المباشرة للبعد الثاني : 100 Debug.WriteLine(Employees.GeL_eng)1))‏ 
لان فهرس العنصر الاول وكما تعلمت مسبقا هو الصفر وفهرس العنصر الأخير هو طول المصفوفة مطروحا منه واحد,لنقول انك اعلنت عن مصفوفة بالعبارة التاليةء لتخزين أرقام 
اللاعبين من اجل 15 لاعب , ويويجد خمس قيم(كل لاعب لديه خمس قمصان وكل قميص عليه رقم) لكل لاعب: 

Dim Statistics(14, 4) As Integer 
العبارات التالية ستعود بالقيم التالية المعلمة بالخط العريض في نافذة المخرجات:‎ 


Debug.WriteLine(Statistics.Rank) 

2:  ' dimensions İn array(îفوفصملا (ابعاد‎ 
Debug.WriteLine(Statistics. Length) 

75: 'total elements in array (ةوiصملا (العدد الكلي لعناصر‎ 
Debug.WriteLine(Statistics.GetLength(0)) 

15: 'elements in first dimension (Jوٺلا (عدد العناصر في البعد‎ 
Debug.WriteLine(Statistics.GetLength(1)) 

5:  'elements in second dimension (عدد العناصر في البعد الثاني(‎ 
Debug.WriteLine(Statistics.GetUpperBound(0)) 

14: 'last index in the first dimension (Jوالا (الفهرس الاخير في البعد‎ 
Debug.WriteLine(Statistics.GetUpperBound(1)) 

4: 'last index in the second dimension (الفهرس الاخير في البعد الثاني(‎ 


المصفوفات المتعددة الابعاد(أكثر من بعدين) قد بطل استخدامها عأ6اموطه لان مجمعات و مصفوفات لتراكيب محددة والكائنات(كما رايت عندما عرفنا مصفوفة من تركيب) اكثر مرونة 
وراحة( سواء كانت ذات بعدين أو بعد واحد ) 


في بعض الاحيان لا تعلم كم من العناصر ستضع في المصفوفة,فبدلا من جعل المصفوفة كبيرة بشكل كافي لحفظ عدد البيانات الاعظمي المتوقع ( وهذا يعني وعلى الاغلب ان قسم من 
المصفوفة سيبقى فارغا) , تستطيع التصريح عن مصفوفة ديناميكية(مرنة) 2۲٣2¥‏ عاص هرك ,وحجم المصفوفة الديناميكية يمكن ان يتغير خلال منهج البرنامج, .يمكن القول انك تحتاج 
لمصفوفة بعد ان يقوم المستخدم بادخال باقة البيانات التي يريد ,ومن ثم يكون قد عمل التطبيق على معالجتها وعرض نتائجها. 
اذا فلماذا نحفظ كل البيانات في الذاكرة عندما لا يكون هناك حاجة لا ستخدامها,؟ باستخدام لمصفوفات الديناميكية تستطيع ان تطرح البيانات وتعود بالمصادر التي كانت تشغلها الى النظام. 
لانشاء مصفوفة دينامكية ,صرح عنها وكالعادة بالعبارة "01 (أو عام زااں۴ أوهاه۷آ۴ )ولكن بقوسين فارغيين وبدون ان تكتب طول المصفوفة: 
Dim DynArray() As Integer‏ 

فيما بعد في البرنامج وعندما تعلم كم عدد العناصر التي تريد ان تخزنها في المصفوفة,استخدم العبارة R897‏ لاعادة تحديد ابعاد المصفوفة,وهذه المرة ستكون بالحجم الحقيقي,.في المثال 
التالي: u٣‏ ©۲هول هي القيمة التي قام بادخالها المستخدم ويمكن ان تكون عدد صحيح ما (5,10,.....) 

ReDim DynArray(UserCount) 
العبارة 86010 يمكن ان تظهر فقط في اجراء ما. بشكل مختلف عن العبارة 3i0[,العبارة 861۳ هي عبارة تنفيذية اهارا ه×ه وتجبر التطبيق على تنفيذ فعل ما وقت التنفيذ,.‎ 
عبارات 9 ليست تنفيذية ,ويمكن ان تظهر خارج نطاق الاجراءات.‎ 
: ولا يمكن ايضا للمصفوفة الديناميكية ان يعاد تحديد ابعادها الى ابعاد متعددة, صرح عن مصفوفة ديناميكية بعبارة 01 خارج أي اجراء كما يلي‎ 


Dim Matrix() As Double 
ومن تم فان استخدم العبارة 69 في اجراء ما للتصريح عن مصفوفة ذات ثلاثة ابعاد هي عبارة خاطئة:‎ 


ReDim Matrix(9, 9, 9)‏ 
لاستخدام العبارة السابقة صرح عن مصفوفة ديناميكية ذات ثلاثة ابعاد فعبارة 8691۳ لا تسطيع تغير ابعاد المصفوفة كما يلي: اناه كه (,,)×أ٣M‏ "أ۵ أي يجب عليك ان 
تعلم عدد ابعاد المصفوفة الديناميكية ولو كنت لا تعلم سعة أو طول كل بعد(عددحدود كل بعد) 


لاحظ ان العبارة 8600 لا تستطيع تغير نوع بيانات المصفوفة.ولذلك فان الشرط A5‏ غير موجود في عبارة 88651۴۸ .وأکثر من ذلك عبارات 8601۳ اللاحقة تستطيع تغير حدود 
المصفوفة15 8 ولكن ليس عدد ابعادها(مهمايكن لا يمكن تغيير عدد ابعاد المصفوفة). مثلا لا تستطيع ان تستخدم العبارة التالية(131×)99[99 61۳١‏ فيما بعد في كودك. 
إلكلمة المحجوزة حفظ ر The Preserve KeyWord ıl‏ 


كل مرة تنفذ فيها عبارة 8860 ,فان جميع القيم المخزنة حاليا فيها يتم فقدانها. و الفيجوال بيسك يعيد وضع قيم العناصر كما لو ان المصفوفة تم الاعلان عنها الآن( فيعيد اسناد العناصر 
العددية الى الصفر والعناصر النصية الى نص فارغ) ولكن تستطيع ومهما يكن ,ان تغير حجم المصفوفة بدون فقدان بياناتها باستخدام العبار 6191١‏ مع الكلمة المحجوزة(حماية أو حفظ) 
P56۷٥‏ التي تتميز بها العبارة 86191۳0 والتي تجبر العبارة 86010 على اعادة تحجيم المصفوفة بدون طرح البيانات الموجودة مسبقا في المصفوفة. مثلا: تستطيع ان تزيد حجم 
المصفوفة(وليس عدد ابعادها) عنصر واحد بدون ان تفقد القيم الموجودة في العناصر كما يلي: 

ReDim Preserve DynamicArray(DynArray.GetUpperBound(0) + 1) 


فاذا كانت المصفوفة تحفظ 12 عنصر, فان العبارة السابقة ستضيف عنصرالى المصفوفة:وهو الaنصر DynamicArray(12)‏ . بينماقيم العناصر ذات الفهارس من 0 الى 11 لن تتغير 
ابداً. 


الفصل الثالث 


بعد ان تتم هذا الفصل ستتكون قادر على ما فعل التالي: 
1- كتابة التعابير الشرطية 

2 - استخدام جمل 7۸8 ..// لتقسم البرنامج الى مجموعة من الجمل البرمجية بالاعتماد على شروط متنوعة. 

3-استخدام اداة صندوق النص المقنع(المشفر) ×78×180 728۸00 لاستقبال مدخلات المستخدم بتنسيق خاص. 

4- استخدام جمل اختيار الحالة لاختيار خيار من عدة خيارات في كود البرنامج. 

5- استخدام خاصية الاسم ۲06۷م ه” Ng‏ لاعادة تسمية المشروع من ضمن البرنامج. 

6- ادارة وترتيب حوادث الفارة وكتابة معالج حدث تنقلات الفار 5 MouseHover event handler‏ . 1 

في هذا الفصل ستتعلم كيف تقوم بعمل تفرع شرطي الى منطقة ما في برنامجك بالاعتماد على الدخل المستقبل من قبل المستخدم ,وسوف تتعلم ايضا كيف تَقَيّم واحدة او أكثر من الخاصيات 

او المتغيرات باستخدام تعابير الشرط.ومن ثم تنفذ واحدة او أكثر من جمل البرنامج بالاعتماد على النتيجة .باختصار ستزيد من مفراداتك البرمجية بإنشاء بلوكات(مقاطع موحدة) من الكود 

تسمى تر اكيب القر ار ءعا .1ئ 8٥/5/0۸‏ والتي تسيطر على كيفية تنفيذ برنامجك ,او مساره(سیاقه بشکل داخلي(من خلال الکود)) 

الشيء الوحيد الذي يجب ان تكون قد تعلمته حتى الآن حول البرمجة في البيسك هو ان التطبيق مركب من مقاطع صغيرة محصورة,فالكود الذي تكتبه ليس إدراج لقائمة متراصة(موحدة) 

. مهم وانك تعمل على إجراء واحد في كل مرة على حدة ٥۳ا ج اج‎ u ٥s بل هو مركب من مقاطع صغيرة والتي تدعى الإجراءات‎ ) mon» lithic listing 

نوعي الإجراءات المدعومة بواسطة البيسك هي موضو ع بحثنا في هذا الفصل: الإجراءات الفرعية وعا† ه٣‏ طنء والوظائف وهام مں؟ .والتي هي قوام(بلوكات) بناء تطبيقاتك وسوف 

نناقش هذه الإجراءات بالتفصيل. من بين المواضيع الأخرى في هذا الفصل سوف تتعلم كيف تعمل ما يلي: 


لقد عرضت البرامج التي کتبتها حتی الآن في هذا الكتاب أدوات صندوق النص ٦ ٥ہا( ٥×‏ ,القوائم و ں٣‏ م" ,أشرطة الادواتء۲ةطامم† ,وصناديق الحرار dialog boxes‏ , 

على الشاشة,وبهذه ٠‏ اراج تيع لقم ان يعالج العناصر التي تظهر على الشاشة بأي ترتيب يراه مناسبا,ولكن تضع البرامج المستخدم تحت المسؤولية»عندما تنتظر بصبر 
إدخالات المستخدم (الإجابة) ,ومن تم تعالج المدخلات بشكل تنبؤي ۷ا5هء ١۲6م‏ ,في الدارات البرمجية هذه الطرائق(الأساليب yوهامdه‏ ا6" )تعرف بالبرمجة المقادة 
بالأحداث وہ¡ event-driven progra"‏ , فأنت تعمل على بناء البرنامج بإنشاء مجموعة من الكائنات الذكية,والتي تعرف كيف تستجيب عندما يتفاعل معها المستخدم, 
ومن ثم يعمل البرنامج على معالجة مدخلات المستخدم باستخدام الإجراء المصاحب لهذه الكائنات,التخطيط التالي يريك كيف يعمل البرنامج المقاد بالحدث 6۷6۸٤-١۲۷۵۸‏ 
r‏ لام في الفيجوال بيسك 


معالحة الدخل باستخد ام اجراء الحدث أ" 


يمکن ان تأتي إدخالات البرنامج من نظام الكمبيوتر نفسه ,متلا يمكن لبرنامجك ان يعلمك عندما يتم استقبال رسالة بريد الكتروني واو عندما تمضي فترة معينة على ساعة النظام ,في 
ھذہ الحالة الکمبیوتر ولیس المستخدم من یطلق هذه الأحداث, بغض النظر عن كيفية إطلاق الحدث يستجيب الفيجوال بيسك باستدعاء الإجراء المصاحب للكائن الذي يمیز هذا 
الحدث,ولقد تعاملت بشكل أولي مع الأحداث :النقر على الفارة مزا ©,تغير الاختيlر CheckedChanged‏ ,تغير الفرس lئnختlرSelectedlndexChanged‏ 

مهما یکن ,يستجيب الفيجوال بيسك الى العديد من انواع الأحداث الآخرى 

جوهر القيادة بالأحداث في الفيجوال بيسك يعني ان معظم عمليات الحوسبة التي يتم عملها في برامجك يتم انجازها بواسطة إجراءات الحدت,. 

هذه القطع(بلوكات) من الكود المخصص للحدث تعالج المدخلات ,تحسب القيم الجديدة ,تعرض الاخراجات, وتعالج العديد من المهام الأخرى. 

ستتعلم في هذا الفصل ,کیف تستخدم تراکیب القرار لتقارن (تضاهي ) المتغيرات ,او الخصائص ,و القيم, .وكيف تنفذ واحد او أكثر من العبارات بالاعتماد عل النتائج ,ومن ثم ستستخدم 
الحلقات والمؤقتات ,فستستخدم الحلقات لتنفيذ مجموعة من الجمل مرة بعد الأخرى حتى يتحقق الشرط او يصبح شرط ما صحيح ,.بوجود تراکیب فعالة جدا مثل تراكيب التحكم والتي 
تساعدك على بناء اجراءات الحدث الخاصة بلك ,والتي تمنح هذه الإجراءات الإمكانية للاستجابة لأي موقف مهما کان. 


كل كائن ي الفيجوال بيسك لديه مجموعة معرفة مسبقا من الأحداث والتي يستطيع ان يستجيب لها,وهذه الأحداث يتم جدولتها عندما تختار اسم الكائن من قائمة اسم الكائن في أعلى 
محرر الكود ومن ثم تختار سهم اسم الطريقة (الأحداث تكون محددة بشكل مرئي في الفيجوال استوديو بواسطة الأيقونة التي تكون على شکل بر غي مضيء)کما يوضحه الشكل 
المرافق ,تستطيع ان تکتب إجراء الحدث لأي من هذه الأحداث ,وإذا ما حدث ذلك الحدث في البرنامج ,فان الفيجوال بيست سينفد هذا الإجراء المصاحب له,مثلا کائن صندوق القائمة 
×is00ا‏ يدعم أكثر من 60 حدث ومن ضمنھاٴالنقر )ماح ,النقر المزدر ج)iا٣eاubهD‏ ,سحب وإسقاط Drag 0p‏ ,سحب فوق ,0r,290۷6۲‏ الترکیز Got F0 cus‏ , 
النقر من خلال لوحة المفاتيح من خلال مفاتيح مخصصة KeyDown,ضغخط‏ مفتاح من المفاتیحss٥ع]P Key‏ ,الضغط بمفاتیح محدد مع الرفع م Key‏ ,مغادرة الاداة 

st ۴5‏ ,تخصيص زر الفارة00۷W‏ 10۷58 ,حركة الفارة 1015610۷8 ,تخصيص زر الفارة مع مفتاح معين ملا6ء ں10 ,تنقلات الفارة 

ouseHover‏ تغير النص d4عa2a/g exh‏ 7 ,والتحقق ك 2ه اج۷ من المكن آلا تحتاج لكتابة الكود لجميع هذه الاحداث ,من الممكن ان تحتاج كتابة كود الى اثنين او ثلاثة 
منها وحتى أربعة فقط في تطبيقاتك, ولكن من الجيد ان تعلم ان لديك الكثير من الخيارات ,عندما تقوم بإنشاء كائن ما(كل شيء كما قلنا سابقا في الفيجوال بيسك يعتبر کائنا وهذه هي 
البرمجة كائنيه التوجه object- oriented programming‏ فالأداة على واجهة المستخدم هي کائن له خصائصه وطرقه التي تميزه) على الفورم.فالشكل التالي یوضح الكلام 
السابق فهو يظهر قائمة جزئيهة ة بالأحداث لکائن(اداة)صندوق القائمة في محرر الكود: 
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ما يجعل لغات البرمجة مرنة تماما وقادرة على التعامل مع تحديات البرمجة و كل موقف(حالة) مع وجود مجموعة صغيرة نسبيا من الأوامر هو قدرتها على اختبار الشروط الخارجية أو 
الداخلية والتصرف تبعا لذلك,. البرامج ليست مجموعات موحدة ءأهء عأط٤İامممص‏ من الأوامر التي ثجري ألا ٣4ع‏ نفس الحسابات كل مرة يتم تنفيذها 6إا ه×م » هذا ما تقوم به 
الآلات الحاسبة(وبشكل مفرط البرامج البسيطة), بالمقابل إنها تقوم بتبديل(ضبط ) سلوكها بالاعتماد على البيانات المزودة بها, في حالة الشروط الخارجية مثل النقر بالفارة أو بوجود جهاز 
طرفي اه۲٠۸‏ مهم » حتى في الظروف غير العادية الناتجة عن البرنامج نفسه. 

في الواقع ,العبارات التي تم مناقشتها في النصف الأول من هذا الفصل هي على ماذا تقوم البرمجة. وبدون المقدرة على السيطرة على سياق(مسار) البرنامج فان الكمبيوترات مجرد آلات 
حاسبة كبيرة يصعب تحريكها فقط., ولقد رأيت كيف تستخدم العبارة ¡f‏ لتحول مسار التنفيذ في الفصول السابقة.في هذا الفصل ستجد مناقشة كاملة لعبارات التحكم بالسياق أو المسار هذه 
العبارات تم تجميعها في تصنيفين رئيسين وهما: عبارات الفصل(اذحكم( Decision Statements‏ وعبارات لتكرار )lلدوراments(j Looping state‏ 


تحتاج التطبيقات الى الية لاختبار الشروط, واخذ مسار مختلف لفعل ما بالاعتماد على حصيلة(نتيجة الاختبار).تزود الفيجوال بيسك بثلاثة من جمل الحكم 0اه أو جمل 
الشرط اج هاا كمه وهي: 


واحد من أكثر الادوات فائدة في معالجة المعلومات في إجراء الحدث هو التعبير الشرطي ,التعبير الشرطي هو جزء من كود البرنامج الكامل والذي یسال بسؤال اھ ۴-٣0-ھu٣T‏ 
بصح او خطأ فيما يخص خاصية ما, او متغیر او آي جزء آخر من کود البرنامج,متلا, التعبير الشرطي 0 > یتم تقیمه الى صح اذا کان سعر مcزاP‏ المتغير الذي يحوي قيمة 
ما اقل من 100 ويتم تقيمه الى خطا اذا كان السعر Pri‏ يحتوي على قيمة اكبر من او تساوي 100 . تستطيع استخدام معاملات المضاهاة التالية في التعبير الشرطي: 


العتي معامل المشقارنة 


Comparison operator Meaning 


= يساو ای‎ Equal to 


>< لا يساوي الى‎ Not equal to 

> اکير من من اليسار الي اليمين)‎ Greater than 

Less than‏ اقل من من اليسار الى اليمين) ب 

Greater than or equal to‏ اكبر من او يساوي إن اليسار الى اليمين) کح 

Less than or equal to‏ ال مت او پساوی ال اٹ السار الي الیمین) کے 

الجدول التالي يريك بعض تعابير الشرط ونتائجها وسوف تعمل العديد من تعابير الشرط في هذا الفصل حتى تفهمها جيدا" 

Conditional expression Result 
10 »< 20 True (10 is not equal to 20) 20 any 10 مح لان‎ 
Score < 20 True if Score is less than 20; otherwise, False Îطخ‎ ıi صح اذا كانت المحصلة اتل من 20 وغیر نلك‎ 
Score = Label1.Text True if the Text property of the Label1 object contains the same value 


صح اذا كانت خاصية النص لكائن العنوان تحوي على نفس القيمة والا نبي خÎh as the Score variable; otherwise, Fal5@‏ 


TextEBox1.Text = "Bi11" True if the word "Bill" is in the TextBox1 object; otherwise, False 


صح اذا كانت القلمة 'بيل" في خاصية النص لكائن صتدوق النص والا نمي خطاً 


عندما يُستخدم تعبير الشرط في بلوك من الجمل يدعى تر كيب القر ار 8٥/5/0۸ 51/1/٥11‏ ,انه يتحكم فيما ذا تم تنفيذ عبارات أخرى في برنامجك و بأي ترتيب تم تنفيذها ,تستطيع 
استخدام التركيب 787 ../ لتقيم شرط في برنامج و تأخذ سياق (منهج) الفعل بالاعتماد على النتيجة. ابسط شكل للتركيب 78۸ ../ يتم كتابته في سطر واحد: 

If condition Then statement EEE EM 

حيث ان شرط ١۸٥۵ء‏ تعبير شرطي ,والجملة "ع" ع)هإءهي قيمة عبارة في برنامج الفيجوالJ‏ بıسdك,aثî: If Score >= 20 Then Label1.Text = "You win!"‏ 

كما في التركيب ٣٠٠۸‏ ../ الذي يستخدم تعبير الشرط الذي طالعناه سابقا 20 =< 80۲۵ 

لتحدد فيم اذا البرنامج سيسند خاصية النص 7×٤‏ لكائن العنوان 1/٥طع1الى‏ "أنت ربحت" "!١اس‏ اه۲" فإذا كان المتغير المحصلة ٥۲٥0ء‏ ©يحتوي على قيمة اكبر من او تساوي الى 
0 فان فيجوال بيسك يسند خاصية النص وإلا فانه يتجاوز إسناد الجملة وينفذ السطر التالي في الإجراء,هذا النوع من المقارنة (المضاهاة) دائما ينتج عنها قيمة صح او خطأ, فتعبير الشرط 
conditional expression‏ ¥ ينتج عنه یمکن(من المحتمل ع ط رهم ) أبدا. 

العبارة .٣٣٠١‏ . .۴| تختبر تعبير ما,والذي يُعرف كشرط ۸٠٥آاأك"هء‏ «فإذا كان الشرط صحيجح فان البرنامج يعمل على تنفيذ العبارة أو العبارات التي تتبع الشرط ءيمكن لعبارة . .۴| 
۸ا . ان یکون لھا تركیب سطر مفرد أو متعدد الأسطر . 


If (age1 < age2) And (age1 > 12) Then ... 


If score1 = score2 Then ...‏ 
الأقواس ليست ضرورية في المثال الأول,ولكن لجعل الكود أسهل قليلا بالنسبة للقراءة,. في بعض الأحيان تكون الأقواس إلزامية(إجبارية رهاو لهم" ) لتحديد الترتيب الذي يتم به تقيم 
أجزاء التعبير, تماما بشكل مشابه للصيغ الرياضية والتي تتطلب أقواس لتدل على الأولوية في الحسابات,.تستطيع ايضا تنفيذ جمل متعددة وذلك بالفصل بينها بالنقطتان العموديتان كم ماهم 
If condition Then statement: statement: statement‏ 
اليك متال عن عبارة fأ‏ مفردة السطر: 
expDate = expDate + 1‏ 
If expdate.Month > 12 Then expYear = expYear + 1 : expMonth = 1‏ 
تستطيع ان تجزأً هذه العبارة في عدة سطور باستخدام التركيب المتعدد السطور والذي يحدد حدود العبارات التي يجب تنفيذها كشرط بالعبارة ۴| ۴٩‏ كما هو مبين هنا: 
If expDate.Month > 12 Then‏ 
expYear = expYear + 1‏ 
expMonth = 1‏ 
End If‏ 
خاصية الشهر را اممهمام Month‏ لنوع بيانات التاريخ همر هه( تعود بشهر التاريخ الذي تم تطبيقها عليه كقيمة رقمية. معظم مبرمجي الفيجوال بيسك يفضلون التركيب المتعدد 
السطور لعبارة "6٣٤‏ اه)ء ۴| حتى ولو كانت تحتوي على جملة وحيدة(شرط واحد فقط). قوام الجمل بين الكلمات المحجوزة ۲۸٥۸‏ و ۴ا ١٩ع‏ يشكل جسم الجملة الشرطية ويمكن ان 
يكون لديك العديد من العبارات في الجسم اذا احتجت لها. 


Dim Check As Boolean = True 
If Check = True Then Check = False 
If Check = False Then Exit Sub 
لاختصار الكتابةء يعتبر 8⁄ أن قيمة المتغيّر المنطقي = مں٣ إذا لم يذكر ذلك صراحة.. بمعنى أن الجملة التالية:‎ 
If Check Then Check = False 

مكافئة تماما للجملة التالية: 
If Check = True Then Check = False‏ 


العديد من خاصيات الأدوات هي قيم منطقية والتي يتم تقيمها الى قيمة (صح/خطأً هءاج ۴/عں١٣٠),لنقول‏ ان الواجهة لديك تحتوي على أداة صندوق اختيار ×0 C٠٥۸8‏ و أردت ان تضع 
عنوان لها (فعال/معطل 0f‏ 0۲ 0۸ )وذلك للدلالة على انها مختارة حاليا أو لا.إليك جملة الشرط التي تغير عنوان اداة صندوق الاختيار: 
If CheckBox1.Checked Then‏ 
CheckBox1.Text = "ON"‏ 
Else‏ 
CheckBox1.Text = "OFF"‏ 
End If‏ 


هذه العبارة تغير عنوان أداة صندوق الاختيار بشكل جيد , ولكن متى سيتم تنفيذها؟ ادخل العبارة في معالج حدث(تغير الاختيار ل٥و٣‏ ۸2٥4ع‏ )عهمح) لاداة صندوق الاختيار والذي يتم 
إطلاقه في كل مرة علامة الاختبار(الصح)للأداة يتم تبديلها الى(تفعيل/تعطيل fأه 0١ 0٣‏ او علامة الصح موجودة/غير موجودة)إما بسبب عمل المستخدم على الوجهة أو من ضمن الكود. 
يمكن للتعابير ان تصبح اكثر تعقيدا,فالتعبير التالي يتم تقيمه الى صح اذا كان المتغير 81هل يمثل تاريخ قبل التاريخ 2008 وفيماذا ايضا كان واحد من المتغيران(مجموع النقاط 
المحرزة) 0۲1٥5و‏ 62٥0۲ءء‏ لا يتجاوز ال90 : 
If (date1 < #1/1/2008) And (score1 < 90 Or score2 < 90) Then‏ 
statements‏ ' 
End If‏ 
الأقواس حول القسم الأخير من المقارنة إجباري,لاننا نريد من المترجم ان ينجز المقارنة التالية اولا: 
score1 < 90 Or score2 < 90‏ 


فأيا من المتغيرين يقل عن ال90 فان التعبير السابق يقيم الى صح(عں٣٣)‏ والشرط الأولي يتم تخفيضه الى التالي: 

If (date1 < #1/1/2008) And (True) Then 
٣ںم المترجم سيعمل على تقييم الجزء الأول من التعبير(والذي يضاهي تاریخین)وأخیرا سیعمل على دمج قیمتین منطقیتین بواسطة المعامل ۲٥٤ھ٣٥م٥ (۵٣۸):فإذا کانت کلا القیمتین‎ 
صح فان التعبير الكلي صح وإلا فهو خاطئ عءاج۴ . اذا لم تستخدم الأقواس فان المترجم سوف يقيم الأجزاء التلاثة من التعبير كمايلي:‎ 
date1 > التعبير الأول:#1/1/2008#‎ 
8٥0۲61 > التعبير الثاني:90‎ 
8٥0۲62 > التعبير الثالث:90‎ 
وأخيرا سوف يجمع النتيجة مع المعامل الثالث باستخدام المعامل 0۸ . فإذا كان 2٥٥0ء اقل من 90 فان‎ ۸"١ ومن ثم فانه سيدمج التعبير الأول مع التعبير الثاني باستخدام المعامل‎ 
date1 variabام التعبير بالكامل سيتم تقيمه الى صح هر1 بغض النظر عن القيمة في متغير التاريخ‎ 


تدعم الفيجوال بيسك تركيب القرار الذي تستطيع استخدامه لتضمّن عدة تعابير شرط,وهذا المقطع من الجمل يمكن ان يحوي عدة سطور طويلة وتحتوي على كلمات محجوزة هامة مثل وإلا 
£٥‏ او( و الااذا ۴/٥ئ/£‏ )ونهاية الشرط// 70 والتركيب العام التالي يوضح ذلك: 
LF ConOTEToOnRIl Men‏ 
ارات ال مت ا ي الط ا SEA EEMONES WW OEMEEA 1E CO EO A> Tw‏ 
Elself condition2 Then‏ 
اال بارلت ال تة لذا عى الصر الات ادا 15 SEE ESMERE S ECE AE CoO E 1O2‏ 
[Additional Elself conditions and statements can be placed here]‏ 
اا 
Else‏ 
statements executed if none of the conditions is True‏ 
e‏ 
في هذا التركيب الشرط الأول 1 ٥1‏ 1 1ك١طهء‏ يتم تقيمه أولا,فإذا كان تعبير الشرط هذا صحيحا,فان مقطع الجمل التي تحته سيتم تنفيذها عبارة عبارة ويتجاوز البرنامج باقي العبارات 
ومن ثم ينتقل الى تنفيذ الكود الذي بعد الكلمة المحجوزة | ٩١‏ (تستطيع ان تضمن واحد او اكثر من عبارات البرنامج) .أما اذا كان الشرط الأول غير صحيح فان الشرط 
الثاني( 02ا١0‏ )سيتم تقيمه,فإذا كان صحيحا,فان البلوك الثاني من الجمل سيتم تنفيذه(تستطيع إضافة شروط fاهء|ع‏ كما تحب او تقضيه الحاجة لذلك اذا كان لديك شروط 
أخرى تحتاج الى تقيم).أخيرا اذا لم يكن ولا واحد من هذه الشروط صحيحا,فان الجمل تحت الكلمة المحجوزة ع5ا سيتم تنفيذها,وبعدها سيتم إغلاق كل التركيب بعبارة الكلمة 
لمحجوزة .End |f‏ 
الكود التالي يريك تركيب الشرط متعدد الأسطر والذي يمكن ان يستخدم لتحديد كمية الضرائب تبعا لعائد الضرائب المقدم (قائم على افتراض|هءاا6 همر )( أرقام الدخل 
والنسبة المئوية هي من ملحق متوسط الضرائب لمشروع خدمة عائدات الدخل في الولايات الئمتحدة 2007 projected United States Internal Revenue Service‏ 
ax Rate Schedule‏ 2007 لإملاء ضريبي مفرد) حيث: 070560111601١8‏ | :متغير ضبط الدذل 58510 :متغير الضريبة المقطوعة 
Dim AdjustedIncome, TaxDue As Double‏ 
AdjustedIncome = 50000‏ 
TE aus EedIneeome K> O2 Ten MOS Ea. DEE O E)‏ 
TaxDue = AdjustedIncome * 0.1‏ 
ISE Ni AES Ee Ineeome KS SN SSO Men MS. a> EAC O i mS)‏ 
TaxDue 82.5 1 ((Adustedlneome _ 7/96259) = 0.15)‏ 
MISE E AO JUSEECIMNEORS <S II0 Then 255 e Orelelkel (Eas muz)‏ 
HaxDue > 406625 § CA usleeduneome 319890) 3 O25)‏ 
MISE E AO USECCLIDNECOMES <= LOOO Men 2 Ca Oreck (AOS uz)‏ 
THaxDue > SGI IS | (AAI USEeQdIRNEOMe > IO0) 2 O26)‏ 
BISER E AONUSEECLACOES <= AOU TEN I Ea CE (MS mu)‏ 
TaxDUueê > SONl48 IS 1 C(AOJUSEEQINEOMeE 16050) 1 000)‏ 
(حسم بنسبة535) Else '35% tax bracket‏ 
TaxDue = 101469.25 + ((AdjustedIncome = 349700) * 0.35)‏ 


EMO TE 


تركيب القرار هذا يختبر المتغير الذي من نوع الدقة المزدرجة عاط ه۷2 ci0"‏ مام-ماdoub‏ وهو المتغير م mص0ء‏ "41ء us]‏ ز۸4 من المستوى الأول للدخل والمستويات 
اللاحقة حتى يتحقق واحد من تعابير الشرط( أي يصادف ان يكون صح) ومن ثم يحدد ضريبة الدخل التي على دافع الضريبة ان يدفعها تبعا لذلك,. مع بعض التعديلات البسيطة ,يمكن لهذا 
الكود ان يستخدم لحساب الضريية المستحقة 0۷60٧‏ على أي دافع ضرائب 4/8۲م×ه† في نظام ضريبي متقدم مثل هذا المستخدم في الولايات المتحدة مع تزويد نسب الضرائب الكاملة 
وتحديثها وبالتالي فان القيمة في المتغير ع0۳-٥41۸‏ ]5ن إ۸ يتم تصحيحها,. البرنامج السابق المكتوب سيعطي الضريبة المستحقة الصحيحة من اجل كل دافع ضرائب في 
الولايات المتحدة لعام 2007 ,فإذا ما تم تغير نسبة الضريبة(نسبة الحسم) فالأمر البسيط هو تحديث عبارات الشرط بتراكيب شرط إضافية لتحديد الإملاء الضريبي لدافعي الضرائب 
fing status‏ كمرpa>ه)t.‏ يمكن للبرنامج ان يوسع نفسه بسهولة را۲2 ليحتوي جميع دافعي الضرائب في الولايات المتحدة. 

ملاحظة: التعابير التي يتم تقيمها الى صح او خطأً تسمى ايضا بالتعابير المنطقية ٣s‏ م/ءءع/م×ع 800/٥4"‏ ,والنتيجة صح او خطأا يمكن ان يتم إسنادها الى متغير من النوع المنطقي او 
الى خاصية,فتست فتستطیع ان تسند القيم المنطقية ومں اج۷ "2ءاهم8B‏ الى خاصية كائن معينءءاا۲هممه١م‏ اعهزطه ,او الى متغيرات منطقية sهاطةأ٣ة۷‏ ٣2هامه8‏ والتي تم انشاءها باستخدام 
عبار ة "/0 والكلمة المحجوز ة "2ع/800 ۸5. 


1-شغل الفيجوال استوديو وانشاً مشروع تطبيق نماذج ويندوز جديد وسمه ( التحقق من مستخدمي),تلاحظ انه تم إنشاء المشروع الجديد و 0۲۳ )4| لوحة النموذج الفارغة تفتح في 
alصDesigner)pa(‏ 

2-اضغط على الفورم وضع في خاصية النص 7×٤‏ للفورم 0۲۳ ( التحقق من المستخدم) 

3- استخدم اداة العنوان امطھ] من صندوق الادوات ×ەطامہ) (اسحب هذه الأداة الى الفورم (سحب وترك) لإنشاء عنوان اهطه|) على الفورم ۴0۲۳ ,واستخدم نافذة الخصائص 
window‏ ertiesمpد۴r‏ لوضع خاصية ٠×‏ ٣النص‏ لهذه الأداة الى ("ادخل رقم التامين الاجتماعي") 

4- كرر الخطوة السابقة لإضافة اداة الزر 8/0۸ الى الفورم وضع النص التالي له في خاصية1 »ع7 النص " التحقق " 

5- كرر الخطوة السابقة لإضافة اداة صندوق نص مشفر ×0 ٥×18‏ 27ع)ءو/ من صندوق الادوات ×0طامه] تحت عروة الادوات العnlةtab Common Controls‏ , وضعa‏ 
تحت اداة العنوان اع طه| :حيث ان صندوق النص المشفر مشابه تماما للأداة صندوق النص والتي استخدمتها من قبل,ولكن باستخدام صندوق النص المشفر تستطيع التحكم بتنسيق النص 
وذلك بإعداد خاصية القناع ئو وتستطيع استخدام تنسيقات موجودة مسبقا التي تزودك بها الأداة نفسها او تختار تنسيقك الخاص.وسوف تستخدم هذه الأداة في البرنامج لتطلب من 
المستخدمين إدخال رقم التامين الاجتماعي في تنسيق 9 أرقام قياسية المستخدمة في خدمة الدخل القومي للولايات المتحدة. 

6- في الكائن صندوق النص المشفر 1 ۴×80×1 ٠‏ ١ع‏ )ءه. الذي تم إضافته الى الفورم اضغط على الخاصية قناع )وج من نافذة الخصائص واضغط زر التبديل هوم اام 
المجاور لها سيفتح صندوق حوار إدخال القناع )ئة utمم|‏ مظهرا لك قائمة بقوالب التنسيق المعرفة مسبقا او الأقنعة sء)وهم‏ .انقر على رقم التامين الاجتماعي في القائمة اهأءه؟ 
Security Number‏ 

ما عملته حتى الآن موضح في الشكل التالي وصندوق حوار إدخال القناع موضح في الشكل الذي يليه: 


2 الى“ صندوق الآادوات‎ RTE CE yT 
تاقفن كف الحل صفحة البداية في حالة الحروة نافنة | لنمانج ویندوز شريط الحنوان‎ 
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File Edit View Project Byild Debug Data Tools‏ شريط القوائم 


1 ê ê ا‎ EEE ECEET TE 

[ oalbox ا , أ‎ wx | Solution Explorer 
1 WwebErowser a | = 3 3 
I= Common Controls | ال — ت شريط عنوان النمونج(التررم  ي‎ 
| | Point 1 التحقق من مستخدمي أا‎ 

ointer TT Al My Project 

ab] Button اداة النوان‎ 1 E] Foml.sb 
CheckB ox صتدوق النصي المقتع بعد اضافته الى الفورم حل رقم التامين الاج‎ 
2 CheckedListE ox | 
ComboBox 
DateTimeFPicker 
Label 


LinkLabel 
ListBox نافنة الخصائس ال‎ 


E > Hl E E E 


Listyiew 
MaskedT agtB ox 
MonthCalendar 
Noatifylcon | e4 8 ا‎ 
NumericllpD awr افا اله‎ ImeM ade NoControl 
InsertkepMode Default 
Location 12. 5B 
ed False 
RadioButton Margi 33.33 
RichT extB ox 
TextBox زر التبديل لتحين تنسيق نس المد وق المقنع قي نافذة الخصائص‎ E 3 

ToalTi 

Sets the string governing the input 
Treewiew ا‎ allowed for this control. 


| IF tahBrmmnar 
13 Pending Checkins| 


ı# 
IRI 
ıe 


® Ê E &d il Ê Û 


MaskedTextBox] Syste. windows 


PictureBox 


ProgressB ar 


i 


7 f” ا8‎ 


Ready 


بيئة تطوير الشيجوال استوديو 
Input Mask‏ 


Select a predefined mazk description fram the list below or select Lustom to define a custom rmazk. 


Mask Description Lata Format Yalidating Type 


Huarmeric [5-digitz] 12345 lntdz 
Phone number [574] BBE-OTA3 [none] 
Phone number ro area code BEE-OT123 [none] 
Short date 12112003 DateTime 
Short date and time [LIS] 12112003 11:20 Datel ime 
Social security number -- [none] 
Time [Europeanf’Military] : DateTime 
Time [US] Datel ime 
ما2‎ od IBUSZ- B293 [none] 
Custom [none] 


Mask: UOO-OU-ODOD LIse Yalidating Type 


على الرغم من آي لن استخدمه الآن ولكن خذ دقيقة ولاحظ الخيار <"0۳ءلا ۳> والذي تستطيع استخدامه فيما بعد لإنشاء أقنعة خاصة بك باستخدام الأعداد ورjga placeholder‏ 
حافظة المكان مثل الواصلة(۔) ٣٥٣مر‏ 
7- اضغط لقبول رقم التامين الاجتماعي كقناع إدخال لك,. تعرض الفيجوال استوديو قناع الإدخال الذي اخترته في الكائن 78×180×1١5۸80/كما‏ يظهر في الشكل التالي: 


ا × |5| 


اتخل رقص التامين الاجتنصاعي 


تنسيق القناع الذي اخترته يظمر في اداة صندوق التص القع 
8- اضغط مزدوج على زر التحقق لتفتح عروة نافذة محرر الكود والذي ينقلك مباشرة الى معالج حدث ضغط الزر: 


معالج حدث ضط الزر حيث ستكتب كودك ضمنه عرو تاقنة مجرر الكود 
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Files Edt Yim Praject Build Debug Oalta Tools 

CEE a A AL‏ کک اھ ا چ ھک 
ج ڪا 
کا Toalbak‏ | 


E e O&K‏ ي 


کے 
اش 


There are na usable controls in this 
group. Drag an item onto this text to 


add it to the toolbox. Î Private Sub Euttonl Click{EyVal sender As System.Object, ByVal e As Syster 


End IF 


saaınas BEA 3 123103 uaN|OS ص‎ 


- End Glass 


[3È Pending Checkins| 
Ready Ch 15 INS 
اكتب الكود التالي في هذا الحدث:‎ -9 
If MaskedTextBoxl.Text = "5555-55-1212" Then 

MSE OS ESE SD 

Se 

SCO FS al is 7لا‎ 

MEO ME 


هذا التركيب البسيط للقر ارمر ع7۸ ../ يختبر قيمة خاصية النص)×ع7 لكائن فإذا كانت مساوية”555-55-1212“ فان التركيب سيعرض رسالة ترحب بك( "ي امرحبا 
رك" !) أما اذا كان الرقم المدخل بواسطة المستخدم قيمة أخرى سيعرض التركيب رسالة "لا استطيع تمييز الرقم", ما يميز هذا البرنامج بالرغم من بساطته هو كيف يعمل الكائن على 
فلترت إدخالات المستخدمين بشكل ألي الى التنسيق الصحيح فلا يحتاج المستخدم الى وضع فواصل او أي رموز أخرى يعمل هذا الكائن على وضع هذه التنسيقات. 

0- اضغط الأمر اا۸ $2۷6 حفظ الجميع على شريط الادوات القياسية 2ا0ت t٣2 ۲١‏ لحفظ المشروع والتغيرات التي قمت بها, حدد المكان الذي تريد حفظ المشروع فيه,. 
1- اضغط الزر ابد التصحيح 9١iووuطع‏ 0 Str‏ من على شريط الادوات القياسي ٣هطامه S١2۲١‏ او بشكل اختياري اضغط ۴5 ليتم تشغيل البرنامج في بيئة التطوير 
المتكاملة 0| , تطلب الفوم من المستخدم إدخال رقم التامين الاجتماعي 55[N‏ في التنسيق المناسب ,وتعرض الخطوط المنخفضة والوصلات ١٣ع٣مر؟‏ هan underlines‏ لتقدم 
للمستخدم تلميح عن التنسيق المطلوب. 

2- اكتب مثلا " | ب ت " لتختبر قناع الإدخال ماذا ترى يعمل فيجوال بيسك على منع كتابة الأحرف لان الأحرف ل تناسب التنسيق المطلوب حيث ان رقم التامين الاجتماعي ذو التسع 
أرقام هو المطلوب. 

3- جرب البرنامج بأرقام متنوعة لترى كيف يعمل البرنامج ومن ثم اعمل على إغلاقه. 


تستطیع اختبار أکثر من تعبیر شرط واحد في العبارات |۴...٦٣6۸‏ و ۴اھءاع اذا کنت ترید ان تضمن أکثر من معیار اختیار ٣|٥۸‏ هااا tionم‌امء‏ في ترکیب القرار decisi0٣‏ 
ما tuعtru,‏ فان الشروط الإضافية يتم ربطها مع بعضها البعض باستخدام واحد او أكثر من المعاملات المنطقية المجدولة في الجدول التالي : 
العئى اامعامل النطتي 
Logical operator Meaning‏ 
po th conditional expressions are True, then the result is True. ,‏ ا کان تاذ لشرطان صح ستکون لنیج صح یر ر 
1 


E ۴ 8‏ ادا تان اتي من الشرطان صحیح تون | . النتيجة صم 
Or If either conditional expression is True, then the result is True. _‏ 


the conditional expression is False, then the result is True. If the conditional‏ | ا کان لشرد خا سنکوں اننبحة دج اا ن 
ey pression ¡is rue, then the result is False.‏ اا کان الشرط سح ستکوں النتبجة خن 


Xor If one and only one of the conditional expressions is True, then the result is 
True. If both are True or both are False, then the result is False. (Xor stands for 
exclusive ©0/۲( اذا كان واحد وفقط واحد من الشروط صح فستكون النتيجة صج)اما‎ 

اذا گان گلا الشرطان صح او كلاغما خطاً عندها ستكون النتيجة 
خطآًءروغويحل مگان رأو الخاص 


يبين الجدول التالي قوائم بأمثلة للمتغيرات المنطقية 0۲5أ4٣6م0‏ اهءأوه| عند العمل عليها في التعابير ,على افتراض ان المتغير النصي مركبة هاعأه۷ يحتوي على القيمة”هع)|8“ 
"دراجة", والمتغير العددي الصحيح للسعر يحتوي على القيمة200 


Logical expressi0 ¬ يزطial النعبير‎ Result النتيجة‎ 

Vehicle = "Bike" And Price < 300 True (both conditions are rue) نlıaص صح رکاذ الشرطان‎ 
Vehicle = "Car" Or Price < 500 True (one condition is True) خuzص‎ jيطرشلا صح (احد‎ 

Not Price < 100 True (condition is False) Îطخ رط‎ نالjzصڪ‎ 

Vehicle = "Bike" Xor Price «< 300 False (both conditions are True) نlديaص خطا[لان كلا الشرطان‎ 


في التدريب التالي ستعمل على تعديل برنامج( التحقق من مستخدمي 0 09۲]2| ¬ My User Valid ai0¬‏ ) بحيٽ يطلب من المستخدم إدخJI personal identification‏ 
(Nا۴)‏ امbصumم‏ رقم المعرف الشخصي خلال عملية التحقق, ولعمل ذلك ,ستعمل على إضافة ×60 ×6 صندوق نص ثاني لتحصل على |۴ رقم المعرف الشخصي من المستخدم, 
ومن تم تعدل العبارة ١8٣۳...افي‏ تركيب القرار بحيث يستخدم المعامل ل٣۸‏ للتأكد من رقم المعرف الشخصي ۴|١‏ 


1-عد الى البرنامج السابق واعرض نموذج "التحقق من المستخدم" و أضف /٥(ع1اداة‏ عنوان أخرى لإضافة عنوان جديد الى الفورم وضع هذه الأداة تحت اداة صندوق النص المقنع. 
2- ضع ف خاصية النص ×7 لأداة العنوان هذه النص ("رقم المعرف الشخصي ۴|١‏ ") 

3- أضف اداة ×ه 478×168 )ءو//صندوق نص مقنع ثاني الى الفورم تحت اداة العنوان التي أضفتها حديثا,. 

4- انقر على shu 4۲۲0W‏ سهم الاختصار الذي على كائن ×180×٥7١ع)ءو/صندوق‏ النص المقنع لفتح قائمة مهمات صندوق النص المقنع,ومن ثم اضغط الأمر 6؟ 
Mask)‏ ضع قناع لعرض صندوق حوار kىَNa‏ utiمہ‏ ا إدخال القناع, 


5- اضغط على قناع الإدخال (sاiواd‏ 5) Numeric‏ عددي(5 أرقام) ومن تم اضغط )0 لإغلاق صندوق الحوار هذا. 
6- اضغخط مزدوج علئ الزر "التحقق" لفتح إجراء الحدث في محرر الكود, 


0 erk CEECTTTTTTTT CETTE KEEFE SSE SES ESET Gel Mask... 


Input Mask 


Select a predefined mask description fram the list below or select Custom to define a custom mask. 


Mask Description Data Format Yalidating Type 
Huumeric [5-digits] Intl 
Phone nurnber [BF4] SSSI Z3 [norEe] 
Phone number ro area code BBB-ITZ3 [nane] 
Shart date 12112003 DateTime 
Short date and Hime [JS] TATA 11:20 DateTime 
Social securily number OUO- OUT Z34 [none] 
Time [E uropean#Military] EE Datel ime 
Time [US] 11:20 DateTime 
Zip LadE 38052-62333 [nane] 

4 Lustorns [nonE] 


Mask: HOOOD Ise 'YalidatingT ype 


7- عدل معالج الحدث بحيث يحتوي على الكود التالي: 


LE MES KECTEEDOL, TOE = SSSA | 
And MaskedTextBox2.Text = "54321" Then 
MSGEBOS EOS OND 
Else 
EES E o I E IS) 
ERA ME 


الجملة تحتوي الآن على المعامل المنطقي ك1 4,والذي يطلب من المستخدم ل١|۳رقم‏ المعرف الشخصي بالتوازي مع رقم التامين الاجتماعي ل١55‏ قبل ان يسمح 64|¡ 4 هللمستخدم 
بالدخول الى النظام وفي هذه الحالة الرقم الصحيح للمعرف الشخصي ۴|١‏ هو 54321, (في برنامج حقيقي هذه القيمة سوف يتم استخراجها بالتوافق مع رقم التامين الاجتماعي من قاعدة 
بيانات الأمن ) ,في الحقيقة ما عملته فقط قمت بإضافة عبارة بسيطة كما يظهر في الكود السابق, حيث عملت على تقطيع الكود الى سطرين باستخدام ميزة التوصيل(الخط المنخفض _ ) 
وبعد كتابة هذا الخط قمت بضغط 8۲" لتقطيع سطر الكود وأدخلت عبارة 2Q‏ (و) لتميز الجديد في هذا الكود. 

7- اضغط حفظ الجميع من شريط الادوات القياسي ليتم حفظ الإضافات الجديدة 

8- نفذ البرنامج وجرب ان تدخل أرقام مختلفة وتفحص النتائج. 


ان التنوع في عبارة .١٣٥"‏ . .۴| يمنحك الجملة هءاع. . .١6ط١.‏ . .۴| والتي تنفذ بلوك واحد من الجمل اذا كان الشرط صحيح وبلوك آخر من الجمل اذا كان الشرط خاطئ , الشكل العام 
لجملة ھواع. . .٣6٣آ.‏ . .۴| هو التالي : 
If condition Then‏ 
statementblock 1 ()‏ 
Else‏ 
statementblock2()‏ 
End If‏ 
يقيم الفيجوال بيسك الشرط ,فإذا كان صحيحاعں٣۲‏ ,ينفذ ۷⁄8 البلوك الأول من الجمل ومن ثم يقفز الى العبارات التي تلي العبارة ۴| ۵ .اما اذا كان الشرط غير محقق هو|اع۴ فان 
البيسك سيتجاهل البلوك الأول من الجمل (الذي يلي الكلمة المحجوزة 8آ) وينفذ البلوك الذي يلي الكلمة المحجوزة 56ع . 
تنوع ثالث لجملة هوا٤.‏ . ٣6۸٣۰‏ ۲. . .۴| والتي تستخدم عدة شروط مع الكلمة المحجوزة ٤5٤۱۴‏ 
If condition1 Then‏ 
statementblock 1 ()‏ 
Elself condition2 Then‏ 
statementblock2()‏ 
Elself condition3 Then‏ 
statementblock3()‏ 
Else‏ 
statementblock4()‏ 
End If‏ 
تستطيع ان تخصص أي عدد من العبارات آ56[. والشروط سيتم تقيمها بداية من الأعلى. فإذا ما كان احد هذه الشروط صحيحا فان البلوك الموافق سيتم تنفيذه,العبارة 56[ اختيارية 
سيتم تنفيذها اذا ولا واحد من التعابير السابقة صادف لان يكون صحيحا,المثال التالي يوضح جملة ۴| مع العبارة ؟اهE|5:البرنامج‏ يقيم محصلة الطالب(500۲8) من خلال إدخال المحصلة 
في صندوق إدخال وبناء على العدد الذي ادخله المستخدم تظهر إحدى الرسائل أم( فشل4 ماج۴ ,مرّووج۴ او جید جدGoodl yl Very‏ مnتlزExcellent‏ ( 
Dim score As Integer‏ 
Dim result As String‏ 
score = InputBox("Enter score")‏ 
If score < 50 Then‏ 
Result = "Failed"‏ 
Elself score < 75 Then‏ 


Result = "Pass" 
Elself score < 90 Then 
Result = "Very Good" 
Else 
Result = "Excellent" 
End If 
MsgBox(Result) 


لاحظ انه بعد ان يتم إيجاد الشرط الصحيح فان ۷/8 ينفذ الجمل المصاحبة له ويتجاوز عن باقي شروط 5E|۴‏ 1ع التي تلي الشرط الصحيح, فيتابع تنفيذ البرنامج بالجمل التي تاتي 
مباشرة بعد جملة نهاية الشرط إذا(۴| 0 E)وبالتالي‏ فان الكود ينفذ اكبر نوعا ما.وهذا ما يجعلك تفضل التركيب المعقد مع جمل 5|۴ ]ع المستخدمة في المثال السابق عن الجمل في 
المثال التالي مع ان كلا العبارتين متكافئتين: 
Dim score As Integer‏ 
Dim result As String‏ 
score = InputBox("Enter score")‏ 
If score < 50 Then‏ 
result = "Failed"‏ 
End If‏ 
If score < 75 And score >= 50 Then‏ 
result = "Pass"‏ 
End If‏ 
If score < 90 And score >= 75 Then‏ 
result = "Very Good"‏ 
End If‏ 
If score >= 90 Then‏ 
result = "Excellent"‏ 
End If‏ 
MsgBox(Result)‏ 
مع جمل ¡f‏ المتعددة سيقوم المترجم بإنتاج كود يتحقق من جميع الشروط حتى ولو كانت المحصلة اقل من 50 . 
ترتيب المقارنة هي مسألة حيوية عندما تستخدم جمل 1۴٤1ع‏ متعددة ,جرب اكتب الكود السابق بترتيب مختلف كما في المقطع التالي وستحصل على نتيجة غير متوقعة تماما: 
If score < 75 Then‏ 
result = "Pass"‏ 
Elself score < 50 Then‏ 
result = "Failed"‏ 
Elself score < 90 Then‏ 
result = "Very Good"‏ 
Else‏ 
result = "Excellent"‏ 
End If‏ 
لنفترض ان المحصلة كانت 49 فان الكود سيقارن المتغير ٠0۲٥ء‏ مع القيمة الاولى 75ولان القيمة 49 تحقق الشرط الأول وهي اقل من75 بالتالي سيسند القيمة (مر)الى النتيجة 
tا۴su‏ ,ومن ثم سيتجاوز الشروط المتبقية ,و هكذا ,فالطالب الذي محصلته 49 سوف يتجاوز الامتحان,لذلك كن حذر جدا وجرب كودك کاملا اذا کان یستخدم الشروط وإلا اذا( 5٤۱۴‏ 1ع۴) 
يتوجب عليك إما التأكد من ان الشروط E156[‏ تم ترتيبها بطريقة مناسبة أو استخدم الحدود الدنيا و العليا كما في جمل الشرطر اد ”=€ 


لا تقلق بشان جمل ۸٥ |۴. . .۲٣ ٥۸‏ ,يزودك الفیجوال بيسك بالوظیفة ٥اد‏ () |١۴‏ ,وهي وظيفة مبنية داخلياہ مزا ہںا؟ ”اط (يقدمها لك الفيجوال بيسك جاهزة للاستخدام )تقبل 
كمعامل نسبي تعبير وقيمتين,تعمل على تقيم التعبير وتعود بالقيمة الأولى اذا كان التعبير مں٣۲‏ صح,أو القيمة الثانية اذا كان التعبير هءاج۴ خطأ و ×ها"/و التركيب العام لهذه الوظيفة 
()۴ااهو التالي: 

lIf(expression, TruePart, FalsePart) 
وع)۸¡ عدد صحيح,نصوص5و١|٣ء ,أي كائن سواء ١أ-٤ازط معد من اللغة نفسها أو مخصص‎ ٥۲١ هما کائنات(یمکن ان يکونا‎ ۴۵1586٥۵ و‎ ۳۳۷6۳2٣ المعاملان النسبیان‎ 
متل أنواع البيانات المعرفة من قبل المستخدم كما رايت سابقا).الوظيفة ()۴||اكثر إحكاما في تمتيل عبارات الشرط f|البسيطة.على فرض انك تريد عرض احد‎ custom obزect‎ 
هاوأ )فبدل من كتابة شرط fإمتعدد الجمل ,تستطيع استدعاء الوظيفة كمايلي:‎ ٣٥٥ النصوص اما قريب ”ه5ه|٣“ أو بعيد ”ج۴ بالاعتماد على قيمة المتغير (مسافة مااهأاة۷‎ 

lIf(distance > 1000, "Far", "Close") 


مثال نموذجي اخر لوظيفة ۴| في تنسيق القيم السالبة وهي نوعا ما شائعة في تطبيقات العمل لعرض كمية سالبة في أقواس, استخدم جملة ۴|] لكتابة تعبير قصير والذي يعمل على تنسيق 
الكميات السالبة والموجبة بشكل مختلف ,مثل التالي: 

Ilf(amount < 0, "(" & Math.Abs(amount). ToString("#,###.00") & ")",_ amount. ToString("#,## .00"))‏ 
الطريقة وط لفئة الرياضيات وها ج تعود بالقيمة المطلقة عماج۷ عاںاموطه لقيمة عددية ما,والمعامل النسبي للطريقة و١أ٣؟5هآ‏ يخصص للكمية رقمان عشريان. 


في فيجوال بيسك يُمْكنْك أيضا التحكم في تنفيذ البيانات في برامجك باستعمال تراكيب القرار اختيار الحالة,وتركيب اختيار الحالة مشابه لترکیب ؟اهواع...6۸٣١...۴|‏ ولكنه أكثر فعالية 
عندما يعتمد التفرع على مفتاح(كلمة مفتاحيه) رئيسي واحد,او حالة اختيار,تستطيع ايضا استخدام تراكيب اختيار الحالة لجعل كود برنامجك أكثر قابلية للقراءة, 
الشكل العام لتراكيب قرار اختيار الحالة هو التالي: 

ELEC E CAE WALAN 

CIES WALE 

SEA lEMOMES EXECU E UALUSNL MECCRMES VeErle NEIN ail لتم الا نله امل اا‎ 
CESS wal UEZ 
SEA EEMOERNES EXECUESC 1T VEALUSZ MeleheS veci alê رختklاl تقل ى حالة مر افق ال2‎ 
CESS YALE 
SCA COMORES COCCI 1E vale MEACERES varie lel onl لا ى اة ملقد‎ 


Case Else 

statements executed if no match is found رıiتnللفل تنفذ في حالة عدم مطابقة أي قيمة‎ 

End Select 
۴,.طبعا ستستبدل المتغير هاطهأ٣ ج۷ بأي متغير او خاصية,او تعبير أخر يمكن‎ ۸04 Sهاه‎ ٥ اه8 وينتهي بالكلمة المحجوزة‎ C456 يبدأ تركيب اختيار الحالة بالكلمة المحجوزة‎ 
ان يكون القيمة الرئيسية,او أية حالة اختبار للتركيب,.وتقوم باستبدال القيمة 61ں ا۷ر #02ںاج۷ر 3عںاج۷ بإعداد,او نصوص ,او قيم أخرى تتعلق بحالة الاختبار المعتبرة.اذا وافقت‎ 
ويبادر مل عام التنفيذ هناك,يمكنك ان‎ E٣١ S؟ماهءأ احد القيم المتغير ,الجمل التي تحت عبارة الحالةهوهع يتم تنفيذه, ومن تم يقفز الفيجوال بيسك الى السطر الذي بعد عبارة‎ 


ثضمن أي عدد من عبارات الحالة هئه في التركيب اختيار الحالة6وه هاه ,وتستطيع ايضا ان تضمن أكثر من قيمة واحدة في هءه 0 حالة ما,اذا درجت قيم متعددة بعد حالة 
مام وة ,افصل بينهم بالفواصل.25 00٠"‏ , يريك المثال التالي كيف يمكن استخدام التركيب هه )هام6 لطباعة الرسالة المناسبة في برنامج ما حول عمر شخص ما 
والمعالم الثقافية كع ه0اءمااص اعاtuاام‏ حيث ان متغير العمر يحتوي على القيمة 18,والنص “۲٥u ٥4١ ۷0ا٥ ۸0W!”‏ " تستطيع التصويت الآن" تم إسناده الى خاصية 
النص 1٠×‏ لكائن اداة العنوان,(ستلاحظ ان " المعالم" لها الطابع الأمريكي ها ١۵٣٠ص۸‏ , خصص بحرية ما يطابق محيطك الثقافي وہ)†مs cultural‏ 


Dim Age As Integer 


Age = 18‏ 
Select Case Age‏ 
Case 16‏ 
وا الاو اا س کے 1 اچوا 
Case 18‏ 
او ت کت ج ع 6 6 
Case 21‏ 
الو جات ہے شرت ال اد ۷ < 1 م ا 
Case 65‏ 
Lele LL Texe = ESN CEN LN a AN‏ 
End Select‏ 


تركيب ع۲ ںا اء مCas‏ ام8 اختيار الحالة يدعم ايضا العبارة ٥5اع‏ هه والتي يمكن ان تستعملها لعرض رسالة( اذا ولا حالة من الحالات السابقة طابقت المتغير 
معA)‏ ,إليك كيف تعمل الحالة(غير ذلك) في المثال التالي,(لاحظ أنني غيرت العمر في المتغير "عمر" الى 25 لاطلق الشرط ماع مءعع "غير ذلك" ) 
Dim Age As Integer‏ 


Age = 25 
Select Case Age 
Case 16 
iabell . Text — "YOU Can drive NOW 
Case 18 
abe ll Text TOU CAN VOES NOW 
Case 21 
Label1.Text = "You can drink wine with your meals." 
Case 65 
Label1.Text = "Time to retire and have fun!" 
Case Else 
Label1.Text = "You're a great age! Enjoy it!" 
End Sele 


تستطيع استخدام معاملات المقارنة لتضمن مجال من قيم الاختبار في التركيب هه ٥‏ ه|ه" اختيار الحالة " .ومعاملات المقارنة للفيجوال بيسك التي يمكن ان تستخدم هي :"يساوي =", 
و"لايساوي <> ", " <اکبر من " و" > اصغر من " و " =<اكبر او يساوي " و " .=> اصغر او يساوي " لاستخدام معاملات المقارنة تحتاج ان تضمن الكلمة المحجوزة ك¡ او الكلمة 
المحجوزة 0في التعبير لتحديد المقارنة التي تقوم بها,ترشد ءأعں "٣ء‏ زالكلمة المحجوزة و| المترجم لمقارنة المتغير المختبر مع التعبير المدرج بعد الكلمة المحجوزة | , أما الكلمة 
المحجوزة 10 تحدد مجال من القيم. التركيب التالي يستخدم ء|, 1٥‏ , والعديد من معاملات المقارنة لاختبار المتغير مو۸وعرض واحدة من خمس رسائل. 
Dim Age As Integer‏ 
Select Case Age‏ 
Case IS < 13‏ 


ape lT Tex  ENION VOUE YOUEM IL 
Case TS To 19 
Label1.Text = "Enjoy your teens!" 
Case 21 
Tapell Text — vol Can dEINK Wine WIL YVOUE meals. 
Case IS > 100 
Habel Text LOOKS OOM 
Case Else 
Label1.Text = "That's a nice age to be." 


End Select 
“Enjoy JOUr ةlluرلا استمع بطفولتك" سيتم عرضها . أما من العمر 13 الى العمر19 سیتم عرض‎ " “عمزەy‎ ۷0u اذا كانت القيم للمتغير هو^اقل من 13 فالرسالة”!۸† امل‎ 
اذا....عندئذ" وأكثر فعالية وخاصة عندما تقوم‎ " |۴...۲۸٥۸ مام " اختيار الحالة أوضح من الترکیب‎ ٥258 ”!رع " استمتع بمراهقتك" , وهكذا . كما تلاحظ ان تركيب القرار‎ 
بعمل ثلاث تفرعات قرار او أكثر بالاعتماد على متغير واحد , او خاصية,. ولكن مهما يكن, عندما تعمل مقارنتين او اقل ,او عندما تعمل مع عدة قيم مختلفة , من المحتمل انك تريد‎ 
استخدام ترکیب القرار ۴...1۸6۸| في التمرين التالي,سترى كيف تستطيع استخدام التركيب هه ماع5 لمعالجة المدخلات من اداة صندوق القائمة×00 ءأ| . ستستخدم‎ 
الخاصيات: خاصية النص ×16 وخاصية لعو ”ة٥ ×ههلاههاعماSe "تغيير الفهرس المختار" لأداة صندوق القائمة1 ×80/ئ// ,لتحسب المدخلات ,ومن ثم سوف تستخدم‎ 
التر كيب موو ٤ء/علعرض و"١ ۲6ن ترحيب في واحدة من اللغات الأربع.‎ 


1- من قائمة ملف |۴ اضغط اء عزهآ۴ ٥W‏ مشروع جديد. تلاحظ ان صندوق حوار المشروع الجديد يتم فتحه لك. 

2- قم باختیار مشرو ع ۸ i0اھعiامApp Windows ۴orms‏ تطبیق نماذج ويندوز وسمه " اختيار الحالة ", واضغط »م لتفتح لك الفورم الفارغة في المصمم 

3- من صندوق الادوات ×ه0طامه) اختار اعطه[ اداة عنوان اضغط عليها وقم بسحبها حتى تصبح فوق الفورم ثم قم بتركها) ومن تم قم بنقلها الى أعلى الفورم بالفارة وبعملية 
السحب والترك العادية وهذه الأداة سنستخدمها كعنوان للبرنامج,وبنفس الطريقة قم بإضافة امطه 1 اداة عنوان أخرى الى الفورم وضعها تحت الأداة الأولى والتي سنستخدمها 
كعنوان لأداة ×80ءأ1 صندوق القائمة. 

4- اضغط على اداة صندوق القائمة ×80ءأ[ في صندوق الادوات وقم بسحبها كما فعلنا سابقا,وضعها تحت اداة اط جه العنوان الثانية . 

5- أضف ايضا ا٥‏ طه ا أداتي عنوان تحت صندوق النص وسنستخدمهما لعرض مخرجات البرنامج. 

6۔- اضف u اا٥ ١‏ 8Bاداۃ‏ الزر من×٥ہطامم]‏ صندوق الادوات لإنشاء زر ۸٥)اں 8B‏ علی الفورم ۴٥۲۳‏ كما فعلنا سابقا,. 

7- افتح Properties‏ نافذة الخصائص ومن ثم قم بإعداد الخاصيات التالية للأدوات التي قمت بانشاءها على الفورم: 
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برنامج الترحيب العالمي 
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THE 
E. 


برنامج الترحيب العالمي 


خ1 


عندما تنتهي من الإعدادات فان الفورم تبدو مشابهة للمعروضة هنا: 


اخثر بلدا 
lstcountrybox‏ 


الآن ستدخل كود البرنامج لإسناد القيم الأولية لصندوق الأدوات: 
8- اضغط مزدوج في أي مكان على الفورم(انتبه أن لا تضغط على أي أداة من الأدوات الموجودة عليها) ليفتح لك محرر الكود والذي ينقلك مباشرة إلى داخل الإجراء تحميل 
llفورForm1_Loado‏ 
9- اكتب الكود التالي في من اجل التمهيد لصندوق القائمة: 
TSE COUR E VOOX TEems . AdA ES)‏ 
)"صر "( 1lstcountrybox. Items . Add‏ 
SECO E AO o EES ACE N‏ 1 
LEE COUR E E VOCE o LESS. ACO‏ 
These lines use the Add method of the list box object to add entries to the list box on‏ 
تستخدم هذه الأسطر الطريقة لل لكائن صندوق النص ×00 ءأالإضافة إدخالات إلى صندوق القائمة على الفورم : 
0- اضغط العروة [١وأوع0]‏ ط۲1.۷١۴عند‏ أعلى محرر الكود لتنقلب راجعا إلى المصمم, ومن ثم اضغط مزدوج على كائن صندوق القائمة من على الفورم لتحرير إجراء 
حدله: 
إجراء الحدث 1st count rybox_ Selected IndexChanged‏ یظهر في محرر الکود 
1- اكتب السطور التالية لمعالجة قائمة اختيار الصندوق الموضوعة بواسطة المستخدم: 
LBUSOUR ELV KEexE 2 lMSECOUNEEVOOS . LEX E‏ 
Select Case 1lstcountrybox.SelectedIndex‏ 


Case 0 


OLE EOS E LAG. EE = oo mS Ea 
Cage 1 

lblgreeting. Text = "تحيکكم صر"‎ 
Cag £ 

IIOLEESSE 1A . TEE = aS a 
Cag: 3 

WoOlEEESE lag gE = nll aaa 


End Selec 
إلى اعطه| أداة العنوان الثالثة على الفورم,(والتي غيرت خاصية الاسم(ه ”هم )لها‎ ةعباتلا٣‎ ٠× السطر الأول ينسخ اسم البند المختار من صندوق القائمة ×0 واا إلى خاصية النص‎ 
إلى الاسم إ٣ارuه|طا).الخاصية الأكثر أهمية التي تم استخدامها في العبارات هي ×ه] . ×٥طر اا١ ناتء ]5 ]1 والتي تحوي على نص البند تماما الذي تم اختياره في‎ 
كمتغير لحالة اختبار‎ 1st coun] r yb 0x . Se] ec] صندوق القائمة,أما العبارات الباقية هي جزء من تركيب قرار اختار الحالة,.التركيب يستخدم الخاصية ×ه 1۸ء‎ 
؟Sما٠٤ا1 ويقارنها مع عدة قيم,. البند ×عل الماعم اه5" الفهرس المختار" هو 0 ,البند التالي 1 وهكذا, .باستخدام ×عك 41۸٠٤ء٠ |[ $ الفهرس المختار فان التركيب‎ 

مء وع اختيار الحالة يستطيع وبسرعة تحديد اختيار المستخدم وعرض رسالة الترحيب الصحيحة على الفورم 
2- اعرض الفورم مرة ثانية واضغط مزدوج على زر ١0ط"‏ خروج" ليفتح لك إجراء الحدث )اا©_اأu‏ ۵١ط‏ في محرر الكود 
3- اكتب الكلمة المحجوزة @[©" نهاية" في إجراء الحدث. 
end‏ 

4- اضغط الزر ا۸ ه۷ ه$"أحفظ الجميع " من على شريط الأدوات القياسي 2٣‏ هه S8٣ 02۲١‏ لحفظ كل التغيرات التي عملتها,حدد مكان مجلد الحفظ كمكان لحفظ المشروع.و 
الآن نفذ المشروع, وشاهد كيف تعمل عبارة هوه "56/6٥٤‏ اختر الحالة" ‏ . ٠‏ 
جرب الانتقال من بلد لأخر في صندوق القائمة ولاحظ كيف تظهر النتائج مباشرة في أداتي العنوان الثالثة والربعة حيث أن أداة العنوان الثالثة تعرض اسم البلد الذي اخترته من صندوق 
القائمة أما أداة العنوان الرابعة فإنها تعرض رسالة الترحيب الخاصة بكل بلد ,بعد أن تنتهي من تنفيذ المشروع وتلاحظ التغيرات التي تتم ,إضغط على الزر خروج لإنهاء البرنامج والعودة 
إلى بيئة التطوير مرة أخرى. 


كما رأيت سابقا فقد مر معنا العديد من الأحداث التي يمكن أن تستجيب لها برامچ الفيجوال بيسك. ومع تقدمنا في الفصل تعلمت كيف تدر الأنواع المختلفة من الأحداث,باستخدام تراكيب 
القر ارم ع7۸..٠١/‏ ومCas‏ اءم/عS‏ في هذا المقطع ,ستعمل على إضافة معالج حدث ما لبرنامج C458‏ )> ه|م5 "اختر حالة" والذي يظهر عندما ۸0۷6۲58 يحلق المؤشر 
فوق صندوق قائمة البلد لهنيهة ,ستكتب اإجراء خاص, أو معالج حدث صندوق القائمة من اجل حث تحلیق فار خ/Mouse/ove‏ , واحد من العديد من الفعاليات المتعلقة بالفارة 
, والتي يمكن للفيجوال بيسك أن يظهر ها ويعالجها.ومعالج الحدث هذا سيعرض الرسالة "من فضلك انقر على اسم البلد" إذا ما أشار المستخدم إلى صندوق قائمة البلد للحظة وقبل أن يقوم 
بعملية الاختيار.ربما بسبب عدم معرفته كيف يقوم بعمل اختيار أو انه 6١۲١556‏ منهمك في قضية أخرى. 


2- عند أعلى محرر الكود,اضغط على سهم اسم الفئة.ومن ثم اضغط على الكائن ليتم اختیاره في هذه القائمة. تستطیع استخدام ٣۵‏ ھم میزة آداۃ النصحم¡ 10/۲ للمساعدة 
في تحديد العناصر متثل صندوق قائمة اسم الفئة في الفيجوال استوديو ,والتي هي مثال أخر عن 0۷8۲/ ۸٥ء‏ حدث تحليق الماوس ضمن بيئة تطوير المتكاملة 
IDE‏ 

3- اضغط على سهم اسم الطريقة في القائمة المجاورة على يمين القائمة السابقة ومن القائمة المنسدلة التي تظهر قم باختيار الحدث "تحليق الفار ڂ " loverړMouse‏ , 
ترى أن الفيجوال بيسك يفتح إجراء حدث تحليق الفارة لصندوق قائمة البلدر عر us!‏ ه۷ _×00171//80ء/ في محرر الكود كما في الشكل التالي : 


class name اسم الفئة‎ | method name اسم الطظریٹڈ‎ 


# WindowsApplication2 - Microsoft Yisual Studio 


L 


File Edit Yiew Project Build Debug Data Tools Tes Window Help 
اک حت ا اھ ا ك جع هف نة‎ 


Start Page Forml.¥b Forml.wb [Design] سن شا ئشار | نر“ الل ربد نايذه لادا الئې اشر نها سن الفائعة ج اليسار.‎ ۳ 
J [General] من عا حججار الاداة الج تریب كاب | ي‎ Î [Declarations] 
ا‎ Private Bub 1stcountrybhox_ MHouseHover (ByVal sender As pject, EyVal e As 
System. EventArFYS3] Handles 1l3tZOUNTEYFbOX . UHousEHower 
End Sub 
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كل كائن على الفورم لديه إجراء حدث واحد مميز يفتح بشكل ألي عندما تضغط مزدوج عليه من على الفورم, إذا كنت بحاجة مثلا لبرمجة إجراء حدث ما من الأحداث المتبقية لأي أداة تم 
وضعها على الفورم عليك أن تستخدم 2۳6 ١0اه"‏ صندوق قائمة اسم الطريقة كما هو بيناه في الشكل السابق 
4- اكتب العبارات البرمجية التالية في إجرIء‏ انفحدث :1istcountrybox MouseHover‏ 
Tf l1stcountrybox.SelectedIndex < 0 Or lstcountrybox.SelectedIndex > 4 Then‏ 
ملد امم ا LOLLO LAG SUSE => ona dS aml‏ 
Ema TE‏ 
عبارة ۴/ تقيم الخاصية لكائن صندوق القائمة باستخدام جملتي شرطي مع المعامل 0/7 ,يفترض معالج الحدث أنه إذا كان هناك قيمة بين 1و4 في الخاصية × ^0٥‏ /0عe/ec1$‏ فان 
المستخدم لايحتاج المساعدة في معرفة اسم البلد (والذي قام باختيار بلد ما مسبقا ) ولكن اذا كانت الخاصية ×ع 180/۸0 ع/ع$ خار ج المجال فان معالج الحدث يعرض رسالة 
س فط ا کے اسم ۱ 1 في أداة عنوان التحية عند أسفل الفورم ءتظهر رسالة المساعدة هذه عندما يحتفظ المستخدم بالمؤشر فوق صندوق القائمة 
والتي تختفي عندما يختار المستخدم اسم بلد ما . 
5- اضغط على الزر ابدأً التصحيح ليتم تشغيJ‏ lلبرaliج Start Debugging‏ 
6- حافظ على المؤشر فوق صندوق قائمة البلد وانتظر للحظات »ستظهر لك الرسالة " من فضلك اضغط على اسم البلد " باللون الاحمر للنص في أداة العنوان كما هو 
مبين في الشكل 


برناصج الترحيب العالهي 


اخنر بلدا 
سورية 
صر 
السجونية 


من قضلك اضخط على اسح البلد 


7- اضغط على اسم البلد في صندوق القائمة,تشاهد أن الرسالة الموافقة تظهر ف أداة العنوان. 
8- اضعط على زر الخروج لإنهاء البرنامج. . 
لقد تعلمت كيف تعالج أحداث الفارة في البرنامج وتعلمت أيضا أن كتابة معالج الحدث هي عملية بسيطة تماما, 
کبدیل فعال لترکیب اماع لجمل متعددة ولكن أكثر صعوبة في قراءة الكود هو التركيب مءهع {ءمامS؟S‏ "اختر حالة" والذي يعمل على مقارنة التعبير نفسه ولكن بقيم مختلفة,الفائدة من 
الحملة "اختر حالة" عوضا عن الجمل ؟اعءاع. . .١٠"٣آ.‏ . .۴| هي في أنها تجعل الكود أسهل في عملية القراءة والتصحيح,. تركيب اختيار الحالة ٥486‏ هام6 يقيم تعبير مفرد فقط 
ویوضع هذا التعبير عادة فى أعلى التركيب ‏ ,ونتيجة التعبير ۲85510۸ م×هيتم مقارنتها بعدئذ مع قيم متعددةء فإذا ما وافقت النتيجة واحدة من هذه القيم فان مقطع الجمل الموافق سيتم 
تنفيذه ,إليك الشكل العام لجمل موه مام "اختر حال" 
Select Case expression‏ 
Case value1‏ 
statementblock1()‏ 
Case value2‏ 
statementblock2()‏ 


Casê Else 
Statementblock(N) 
End Selec 


واليك المثال العملي التالي: 
Dim Message As String‏ 
Select Case Now.DayOfWeek‏ 
Case DayOfWeek.Monday‏ 
Message = "Have a nice week"‏ 
Case DayOfWeek.Friday‏ 
Message = "Have a nice weekend"‏ 


Case Else 
Message = "Welcome back!" 
End Select 
MsgBox(Message) 


في هذه القائمة التعبير الذي يتم تقيمه في بداية الجملة هو الطريغة)مم// 2/0 0W.0‏ ,هذه الطريقة ترجع بمکونات انعداد DayOfWeek‏ " أيام الأسبوع" وتستطيع استعمال أسماء 
هذه المكونات في كودك لجعله أسهل للقراءة,وقيمة هذا التعبير يتم مقارنتها مع القيم التي تتبع كل كلمة محجوزةهوج٥‏ ,فإذا ما تمت المطابقة مع أي من هذه القيم فان بلوك الكود المرافق 
لهذه القيمة يتم تنفيذه ,ويتجاوز البرنامج باقي القيم في عبارة هه وينتقل لينفذ الجمل التي تلي End Selec‏ إنهاء الاختيار ,فالحالتين الأولى والثانية من عبارات الحالة تأخذ في حسبانها 
يوم الاثنين والجمعة على الترتيب.أما الجملة 56[ 6458 تأخذ في حسبانها باقي أيام الأسبو ع,بعض جمل الحالة مجع يمكن أن يتم إتباعها بقيم متعددة,والتي تفصل بينها فواصل كما في 
التعبير التالي, 
Select Case Now.DayOfWeek‏ 
Case DayOfWeek.Monday‏ 
Message = "Have a nice week"‏ 
Case DayOfWeek.Tuesday, DayOfWeek.Wednesday, DayOfWeek. Thursday‏ 
Message = "Welcome back!"‏ 
Case DayOfWeek.Friday, DayOfWeek.Saturday, DayOfWeek.Sunday‏ 
Message = "Have a nice weekend!"‏ 
End Select‏ 
MsgBox(Message)‏ 


كما ترى تمت عملية معالجة قيم متعددة بعد عبارة الحالة مءه0وذلك بالفصل بين هذه القيم فقط بفواصل ,و هذا التركيب لا يحتوي على عبارة الحالة " وإلا " ٥ءاع‏ مءهع لان جميع القيم 
المكنة تم اختبارها هنا في عبارات الحالةهءهع ,والطريفة )53/0/66 لا يمكن لها أن تعود بقيم أخرى. 
يمكن أن يتم تعقيد عبارة الحالة 6456 أكثر من ذلك قليلا,فمثلا يمكنك أن تميز حالة ما بحيث يكون المتغير اكبر(أو اصغر) من قيمة ما, لتعالج هذا المنطق ,استخدم الكلمة المحجوزة |5| 
كما في مقطع الكود التالي الذي يميز بين النصف الأول والنصف الثاني من الشهر: 
Select Case Now.Day‏ 
Case ls < 15‏ 
MsgBox("It’s the first half of the month")‏ 
Case ls >= 15‏ 
MsgBox("It’'s the second half of the month")‏ 
End Select‏ 


توفر الفيجوال بيسك معاملين منطقيين تستطيع ان تستخدمهما في جملك الشرطية,هما المعاملان (وايضا 50ا۵۸ A)و(أووالامءاع0۲‏ ) وهذان المعاملان يقومان بنفس العمل الذي 

يقوم به المعاملان ١٣۸ر‏ ۲ 0على الترتيبراع۷ااممءهم ,ولكنهما يوفران مرونة هامة جدا اء في الطريقة التي يتم فيها تقيم كل منهما,وهذا جديد على المبرمجين 

المحترفين بالفيجوال بيسك6 ,اعتبر ان جملة الديها حالتين (شرطيين) وهما مرتبطان بواسطة المعامل 50ا0۸ ۸.فمن اجل ان يتم تنفيذ جمل التركيب ,كلا الشرطين يجب ان يتم 

تقيمه الى صح فإذا ماتم تقيم الشرط الأول الى خطأ,فان فيجوال بيسك يتجاوز مقطع الكود المرافق له ويذهب مباشرة الى السطر الذي يليه او الى عبارة ( 5| عأخر) مباشرة,بدون ان 
يختبر الشرط الثاني , هذه التقييم الجزئي او القصر في دارة لجملة يكّون مفهوم منطقي يقول التالي:لماذا يجب ان يستمر الفيجوال يسك في تقيم كلا الشرطين في جملة ۴|اذا لم يكن كلا 

الشرطين صحيحين؟ 

المعامل 0۲۴۶۵ يعمل بنفس الأسلوب اتر ان عزارة ۴ اذیا رطان تخوت یکر تان مر قطان پوادطلة العام 1568ع 0 ,ن اج ان بک تن قر کیب ا ,ی الأقل شرط منهم يجب ان 


ùa" “Inside a الذي يستخدم خدلة fاوالمعامل 0 لاختبار شرطین وعرض‎ simple routine از الدارة ف في الفيجوال بيسك :الإجراء التيط‎ short-circuit 
داخل اذا" اذا کان كلا الشرطان صحيح.‎ 
Dim Number As Integer = 1 
If Number = 1 AndAlso MsgBox ("Second condition test") Then 
MEC ES iS JENS lS SI) 
Else 
را عة 5 ال )د‎ 
ERS TE 
الوظيفة صندوق الرسالة ×0 98ء" نفسها يتم استخدامها كاختبار حالة(شرط) ثاني,والتي تبدو نوعا ما غير عادية,ولكن هذا التركيب الغريب ممكن تماما,ويعطينا نتيجة مثالية لرؤية‎ 
كيف تتم عملية قصر الدارة بشكل أكثر قربا وفهما,النص"اختبار الشرط الثاني" يظهر في صندوق رسالة فقط اذا تم إسناد المتغير العددي | #©11[0§الى 1,أما في الحالات الأخرى فان‎ 
المعامل 50ا۸ ۸۸0 يقصر دارة الجملة,والشرط الثاني لم يتم تقيمه, .اذا جربت هذا الكود بشكل عملي,تذكر ان هذا فقط لتوضيح الفكرة ,فلن تستخدم صندوق النص بهذا الشكل كشرط حيث‎ 
وقصره الدارة.‎ ۸٣۵ انه في حقيقة الأمر لا يختبر شيء,ولكن بتغير متغير العدد _ إعطصن لمن 0 الى 1 وبالعكس» تستطيع ان تحصل على فكرة جيدة عن كيفية عمل المعامل 0ءا۸‎ 


إليك مثال ثاني عن وظائف قصر الدارة في الفيجوال بيسك,عندما يتم تقييم شرطين باستخدام المعامل هئ/4/704 ,هذه المرة اختبار شرطي أكثر تعقيدا(7/عمر الإنسان<=1 )هذا الشرط 
يتم استخدامه بعد المعامل 0ء/4/704لتحديد ما يسميه بعض الناس "عمر الكلب" لشخص ما. 
Dim HumanAge As Integer‏ 
HumanAge = 7‏ 
سنة الكلب تساوي سبع سنوات بشرية' 
If HumanAge <> 0 AndAlso 7 / HumanAge <= 1 Then‏ 
(۳ برك عل لفل وه کلت راد دع 
EE‏ 
عا _ اقل من سه كلت و اع :ن 6 
ERA IF‏ 


وهذا جزء من برنامج( ضخم هکذا یسمی عمر الكلب لشخص ما) ووذلك بتقسيم عمره على 7 ,وهذا الإجراء يحاول تحديد فيماذا كانت القيمة في المتغير eeHumanAge‏ الأقل 7 
سنوات( اذا لم تكن قد سمعت بمبداً ر ال من ن , فإليك ما يعني اذا كان عمر شخص ما 28 سنة,ستكون 4 سنوات بعمر الكلب, وهذا أقترح كطريقة مثيرة تعلق بالکلاب» حيث 
أن للكلاب ۸ همءه؟fز|‏ فترة حياة تقريب ٣1۷‏ ولاهم سبع التي للبشر. ). يستعمل الكود شرطين في جملة ۴| ويْمْكن أن يُستعمل في تشنكيلة مختلفة من السياقات يمكنك ان تستعمله في 
إجراء حدث النقر على كائن زر ما. يُدققٌ الشرط الأول لرُوية فيم اذا تم وضع العدد صفر في المتغير مو۸ 2 ن١,‏ افترضت بشكل موقت بأنَّ المستعمل عله بما فيه الكفاية من الحس 
لوضع غمر إيجابي في المتغير HumanAge‏ لأن عدد سلبي ينتج التتائج الخاطئة . الشرط الثاني يَختبرُ فيم اذا الشخص بعمر سبعة سنوات على الأقل.إذا ما تم تقیم كلا الشرطين إلى 
الصواب»يتم عرض الرسالة "عمرك على آلأقل ستة كلل و آحدة" في صندوق رسالة. إذا كان الشخص أقل مِن سبعةء يتم عرض الرسالة "عمرك آقل 
ل لا ساللت و ادو 

تخْيّل الآن بأئني غيّرت قيمة المتغيّر هو2۸4 ں1 من 7 إلى 0. ماذا يَّخْدث؟ شرط الجملة ۴| يتم تقيمه الى خطأ من قبل مترجم فيجوال بيسك»وذلك التقييم يَمَنع الشرط الثاني من أن يُقَيَّم 
هكذا الإيقاف وااامم » أو الاختصار و١‏ أاأuء۲أع-امهطء‏ .ايضا جمل ۴| تحمينا من وهم الشذوذ " التقسيم على الصفر" الذي يُمَْكِنْ أن ينتج إذا قّمنَا 7 على ال0 (القيمة الجديدة 
للمتغيّر ٥449ا‏ 1). فلم يكن عندنا نفس الإمكانية في فيجوال بيسك 6. فوضيع المتغيّرً مو2/۸ "ں1 إلى 0 في فيجوال بيسك 6 گان سيّنتجٌ عنه خطاً وقت تشغیل و انهیار کامل 
للبرنامج» لأن كامل جملة( إذا ۴| ) كان يُمكن أن تقَيّم» والقسمة على صفر غير مسموح به ك6)أ” 6۲م في فيجوال بيسك 6. في الفيجوال الأستوديو حصلنا على فائدة من سلوك 
الاختڪصiر short-circuiting‏ . 

الخلاصة» يفت المعاملان ۸۸۵۸۶0 وو ءا0۲۴ في فيجوال بيسك بضعة إمكانيات جديدة لمبرمجي فيجوال بيسك»من ضمنها الإمكانية لمَّثع أخطاء وقت التشغيل والتتائج الأخرى الغير 
متوقعة. ومن المحتملٌ أيضا تحسين الأداء بوّضنع تلك الشروط التي تستهلك وقت للحساب في نهاية جملة الشرط لأن فيجوال بيسك لا يودي حسابات الشرط هذه المكلفة مالم تكن 
ضرورية. على أية حال»ء تحتاج لان تفكر بعناية حول كَل الشروط المحتملة التي فذ تصادفها جملة ۴| عند تغيير حالات المتغير أثناء تنفيذ البرنامج. 


يوجد شرك(مأزق ااه؟اأم)عام في تقيم التعابير في الفيجوال بيسك وهو محاولة مقارنة القيمة لاشيء و١‏ اهل بشيء ما,( فالمتغير الكائني الذي لم يتم إسناد أي قيمة له لا يمكن استخدامه 
في الحسابات أو في المقارنات) خذ الجمل التالية: 
Dim B As SolidBrush‏ 
B = New SolidBrush(Color.Cyan)‏ 
If B.Color = Color.White Then‏ 
MsgBox("Please select another brush color")‏ 
End If‏ 
هذه الجمل تنشئ من المتغير الكائني اوں48اه5 المتغير 8, ومن ثم تختبر لون الفرشاةاوں۲ط ,وتمنع أطأاه۲م‌المستخدم من استخدام اللون الابيض في الرسم, في الجملة الثانية من 
مقطع الكود تم التمهيد للمتغير 8 إلى اللون "السيان" فكل شكل يتم رسمه بهذه الفرشاة يظهر بلون السيان, فإذا حاولت أن تستخدم المتغير 8 بدون أن تمهد له,سيؤدي إلى حدوث خطأ وقت 
التنفيذ ,و هذا الخطأ البشع"استٹناء 07¡† م Nu Reference Exc e‏ "بدون قيمة" مرجعية",في مثالنا استثناء(خطاً وقت التنفيذ )سيتم إطلاقه عندما يدخل البرنامج إلى جملة الشرط,لان 
المتغير ليس لديه( انه لاشيء) والكود يحاول مقارنة ومİا6"ه0ء‏ شيء ما بقيمة لاشيءو” اه والتي لا يمكن مقارنتها إلى أي شيء, لتجرب ذلك اجعل العبارة الثانية من الكود تعليق 
وذلك بوضع علامة اقتباس مفردة أمام ( ۷217© .010۲ © )5601/08۲05 6W‏ ۶ 8 لجعلها تعليق ,ومن ثم قم بتنفيذ البرنامج لترى ما يحدث ومن اعمل على إزالة علامة الاقتباس لإرجاع 
السطر إلى الكود مرة ثانية, دعنا نصلح هذا ,وذلك من خلال التأكد من أن المتغير 8 ليس(لاشيء) 


If B IsNot Nothing And B.Color = Color.White Then 
MsgBox("Please select another brush color") 
End If 


عبارة ۴| يجب أن تقارن خاصية ٣٠اه‏ اللون للكائن 8, فقط اذا كان لهذا الكائن قيمة(وليس لاشيء0١١[©[R)|,و‏ هذه الحالة غير مطبقة هنا,فالمعامل "و" يقيم جميع الشروط في 
التعبير ومن ثم يدمج نتائجها(قيم صح أو خطأ) لتحديد قيمة التعبير.فإذا كانت جميع الشروط صحيحة فان النتيجة صح , ومهما يكن فانه لن يتجاوز عن تقيم بعض الشروط ولو كانت خطأً 
,لتجنب المقارنات غير الضرورية, استخدم المعامل 0ءا۸١١"^"بالإضافة‏ إلى" . المعامل موا۸۸۵۸ يعمل ما يجب أن يعمله المعامل "و" في الطرف الأول من التعبير أي يعمل على 
مقارنة الشرط الأول فإذا كان خطأ فلا يوجد حاجة لمقارنة الشرط الثاني ,أي أن المعامل 8 اذا كان لاشيء,فلا يوجد سبب لمتابعة مقارنة لونه,وكامل التعبير سيتم تقيمه إلى خطأً,بغض 
النظر عن لون الفرشاة, إليك كيفية استخدام المعامل A۸۵۸0‏ 

If B IsNot Nothing AndAlso B.Color = Color.White Then 

MsgBox("Please select another brush color") 
End If 

يقال عن المعامل 0ءا۵4۸٣۸انه‏ قصر التقييم لكامل التعبير حالما أتى في مساره قيمة خاطئة, فحالما ينقلب جزء في عملية 0ءا۸۵0۸إلى خطأ فكامل التعبير خاطئ ولا توجد حاجة 
لتقييم الشروط المتبقية,. يوجد معامل أخر مكافئ لقصر دارة التعبير للمعامل 0 وهو المعامل ماع0۲ ,هذا المعامل يمكن أن يعمل على زيادة سرعة عملية المقارنة للتعابير المنطقية 
نوعا ما وهذا المعامل ليس بأهمية المعامل 0ا0۸" ۸,يوجد سبب أخر جيد من اجل قصر تقيم التعبير وهو للمساعدة في إتمام العمل.فإذا ما اخذ الشرط الثاني للمعامل "و" وقت طويل 
لتنفيذه(مثلا عليه التمكن من الوصول إلى قاعدة بيانات بعيدة) تستطيع استخدام المعامل 0ا0۸" ۸لجعل التأكد من عدم تنفيذ الشرط الأخر عندما يكون لا حاجة له. 


تسمح لك عبارات الدوران بتنفيذ واحد أو أكثر من اسطر الكود بشكل متكرر راه۷زاهمه؟ , العديد من المهمات المؤلفة من العمليات التي يجب أن يتم اعادتها مرة بعد مرة, وعبارات 
الدوران جزء هام من أي لغة برمجة,وتدعم الفيجوال بيسك جمل الدوران التالية: 


بشكل مختلف عن باقي التكرارات الأخرى يتطلب الدوران ×6 . . ۴٠١.‏ أن تعرف عدد مرات التكرار التي ستقوم بها الجمل الموضوعة ضمن التكرار الذي سيتم تنفيذه, 
الدوران(التكرار) لديه الشكل العام التالي: 
For counter = start To end [Step increment]‏ 
statements()‏ 
Next [counter]‏ 
(counter = start‏ بداية العداد ۲١ e٠4)‏ (إلى النهاية)[٤٣‏ ٠۳ع¡‏ مهSt]‏ (خطوة الزيادة)ئ†م "وء (العبارات التي تنفذ داخل التكرار) 
ex ]counter[‏ (العداد التالي) 
الكلمات المحجوزة في الأقواس المربعة اختيارية(بدك تكتبها أو لا ما في مشكلة) المعاملات النسبية,١۸‏ ,أا هك ,٣0ارuدc‏ والزيادةأ مهاعم¡ جميعا قيم عددية,يتم تنفيذ التكرار 
Nex)‏ . . .۴ عدد من المرات المطلوبة في العداد ٣6أ٣‏ اه حتى الوصول(أو تجاوز) القيمة النهائية في حلقة التنفيذ )×ه.. . ۴0١.‏ ,يعمل فيجوال بيسك التالي: 
1- یضع 6۲ہ uںهم‌العداد‏ مساوي للبدایة٤‏ ھاو 
2- يختبر فيما اذا العداد اكبر من النهاية(القيمة العظمى للعداد) اذا كانت كذلك فانه يخرج من الحلقة بدون أن ينفذ الجمل في جسم الدوران.ولا حتى مرة واحدة,فإذا كانت الزيادة 
سالبةريختبر البيسك لرؤية فيما اذا العداد اقل من النهاية(القيمة الصغرى) اذا كانت كذلك فانه يخرج من الحلقة بدون ايضا أن ينفذ الجمل في جسم التكرار. 
3- ينفذ الجمل في البلوك( المقطع من الكود في جسم الدوران) 
4- يزيد قيمة العداد بنفس الكمية المحددة في معامل الزيادة النسبي "٤‏ عه”¡ الذي يلي الكلمة المحجوزة مه)5, فإذا كان معامل الزيادة النسبي ۸٥۲۵۳٥۸۲‏ غير محدد, يتم 
زيادة العداد بالقيمة 1 أما اذا كانت الخطوة قيمة سالبة, ينقص ٥٥٥45864‏ العداد ٣6اہ u‏ تبعا لها 
5- يستمر بالخطوة رقم 3 
الحلقة في القائمة التالية تمسح كل العناصر لبيانات المصفوفة العددية وأهل وتحسب المتوسط لهم: 
Dim data(50) As Integer‏ 
Dim i As Integer, total As Double‏ 
For i = 0 To Data.GetUpperBound(0)‏ 
total = total + Data(i)‏ 
Next i‏ 
Debug.WriteLine(total / Data.Length)‏ 
الشيء الوحيد الأكثر أهمية الذي يجب أن تحفظه في ذاكرتك,عندما تعمل مع الحلقاتا×ه.. . .۴0۴۲ هو أن قيمة النهاية يتم وضعها في بداية التكرار(يجب أن تضع نهاية للتكرار بعد 
إلى( ,))0١‏ تغيير قيمة نهاية المتغير في جسم الحلقة لن يعطي تماره,مثلا.التكرار التالي سيتم تنفيذه عشر مرات وليس مئة مرة: 
Dim endValue As Integer = 10‏ 
Dim i As Integer‏ 
For i = O0 To endValue‏ 
endValue = 100‏ 
more statements }‏ { 


Next i 
تستطيع ومهما يكن أن تعدل قيمة العداد 16۲ مء من ضمن الحلقة ,العبارة التالية هي مثال عن حلقة غير منتهية(لانهاية من الدوران(التكرار)‎ 
Fori = 0 To 10 
Debug.WriteLine(i) 
i =i-1 
Next i 


هذه الحلقة ليس لها نهاية ,في الواقع لا تزيد ابد (اذا جربت هذه الحلقة اضغط )هه8۲ + ا٣)0لقطع‏ الحلقة الغير منتهية) 


المعامل النسبي للزيادةة" |٥۲6٥‏ يمكن أن يكون موجب أو سالب ,اذا كانت البداية اكبر من النهاية فان قيمة الزيادة يجب أن تكون سالبة,وإلا فان جسم الحلقة لن يتم تنفيذه أبدا,ولا حتى 
مرة واحدة ,. يسمح لك الفيجوال بيسك 2008 بالإعلان عن عداد من ضمن عبارة الحلقةه۴ ., يتوقف متغير العداد من اجل الخروج عندما تحرر الحلقة قيمة ما ااه واأهط خارج 
الحلقة 
For i As Integer = 1 To 10‏ 
Debug.WriteLine(i.ToString)‏ 
Next‏ 

Debug.WriteLine(i.ToString) 
تم استخدام المتغير ¡ كعداد للحلقة,وهو غير مرئي خارج نطاق الحلقة,العبارة الاخيرة لن يتم ترجمتها ومحرر الكود سيضع تحتها خط متعرج ويولد رسالة خطأ"الاسم أ¡ لم يتم الاعلان عنه‎ 
"the Name ‘î’ is not declared 


a N E E E N E E Da E E. تنفذ الحلقة (أعمل.‎ 


العبارات التي تلي الحلقة يوجد نوعين لجملة 0۵ 1. . Do.‏ وکلاهما یستخدم نفس التشكيل الأساسي basic model‏ ,يمكن للحلقة أن تنفذ إما ينما يكون الشرط خا E‏ 
الشرط صحيحا,هذين النوعين يستخدمان الكلمة المحجوزة هاا ۷/روازا"ل لتحديد إلى متى ستبقى العبارات قيد التنفيذ,. 
لتنفيذ مقطع من جمل بينما يكون الشرط صحيحا استخدم الشكل العام التالي: 
Do While condition‏ 
statement(-block)‏ 
Loop‏ 


Do Until condition 
statement(-block) 
Loop 


عندما ينفذ الفيجوال بيسك هذه الحلقات يقيم اولا 660١‏ الشرط,اذا كان الشرط خطأ, يتم تجاوز الحلقة عا ۷. . .00 (بلوك الحلقة لا ينفذ ولا حتى مرة واحدة)ولكن الحلقة . .00 
اأ ل. يتم تنفيذها, عندما يصل التنفيذ الى عبارة م٥٠1‏ كرر ,يقيم الفيجوال بيسك التعبير مرة ثانية,يكرر بلوك الجمل للحلقةم اا ۷. . .00 ,اذا كان التعبير(الشرط) ما يزال صحيحا,او 
يكرر الجمل للحلقة انأ لا. . .50 اذا كان التعبير خطأ, باختصار ,الحلقة هاأ۷. . .00 يتم تنفيذها عندما يكون الشرط صح والحلفة | [[6 0 ©[[يتم تنفيذها عندما يكون الشرط خطأ,.اما 
النوع الأخير لجملة مهها. . .00 يسمح لك بتقييم الشرط لدى نهاية التكرار ,إليك الشكل العام لكلا الحلقتين,مع تقييم الشروط في نهاية التكرار 
Do‏ 
statement(-block)‏ 
Loop While condition‏ 


Do 
statement(-block) 
Loop Until condition 


كما يمكن ان تخمن الجمل في جسم الحلقة يتم تنفيذها مرة واحدة على الأقل ,لانه لايوجد اختبار عند الدخول في الحلقة,إليك امثلة نموذجية عن استخدام هذه الحلقة مهه ]ا. . .00,افترض 
ان المتغير ۸/6×٠‏ يحفظ بعض النص(مثل خاصية ٥×‏ 1النص لأداة صندوق النص ×6×80 ۲ )وتريد ان تحصي الكلمات في النص(سنفترض انه لايوجد عدة فراغات في النص 
وان ميزة الفراغ تفصل الكلمات المتلاحقة)لايجاد نسخة من الحرف في النص,استخدم الطريقة 0۴×هل”|والتي ستناقش بالتفصيل في الفصل 13 ,وهذه الطريقة تقبل معاملين نسبيين: 
مكان نص البحث والحرف الذي يتم البحث عنه,الحلقة التالية يتم تكرارها طالما انه يوجد فراغات في النص,وفي كل مرة تجد الطريقة ؟6×©f |١١‏ فراغ أخر في النص» تعود بموقع 
الفراغ.عندما لا يكون هناك فراغات في النص,ثرجع الطريقة |٠" ١6×©0f۴‏ القيمة -1 والتي تشير الى نهاية التكرار(الدوران)كما يظهر هنا: 
Dim MyText As String = "The quick brown fox jumped over the lazy dog"‏ 
Dim position, words As Integer‏ 
position = 0 : words = O0‏ 
Do While position >= 0‏ 
position = MyText.IndexOf(" ", position + 1)‏ 
words += 1‏ 
Loop‏ 
MsgBox("There are " & words & " words in the text")‏ 
الحلقة م00ا. . .00 يتم تنفيذها بينما دالة الطريقة |١١6×0۴‏ تعود بعدد موجب,والذي يعني انه يوجد فراغات أخرى في النص , المتغير 0۸أاأومم يحفظ موقع رمز الفراغات 
المتلاحقة في النص,البحث عن الفراغ التالي يبدأ من موقع الفراغ الحالي مع 1 ءدامإضافة واحد(بالطبع غير ذلك سيبقى البرنامج محتفظا بإيجاد نفس الفراغ الذي في الموقع الأول 
للفراغ)ومن اجل كل فراغ تم إيجاده يعمل البرنامج على زيادة القيمة للمتغير ء١۷0۲‏ بمقدار واحد(من احصاء عدد الفراغات في النص)والذي يحفظ العدد الكلي للكلمات عندما ينتهي 
التكرار .على فكرة يوجد طريقة ابسط لتقسيم النص الى الكلمات المكونة له ٤"عںإأأوممع ¡ts‏ مثل الطريقة زام لفئة النص ءعواع String‏ „ . هذا فقط مثال عن الحلقة . .00 
عاN.,ربما‏ لاحظت المشكلة في مقطع الكود السابق : اني افترضت ان النص يحوي على الأقل كلمة واحدة,عليك إدخال جملة القرار التي تحقق من النص الذي ليس لديه طول(نص 
بطول صفري ١95‏ |٣ك‏ ۸و١‏ ع|ا-١۲هz‏ )وبالتالي ليس عليك المحاولة في عد كلماته. 
تستطيع كتابة الكود لنفس الإجراء مع الكلمة المحجوزة ا لا.في هذه الحالة عليك الاستمرار في البحث عن الفراغات حتى يصبح المتغير ١0/أومم‏ -1 إليك نفس الكود ولكن مع حلقة 


Dim position As Integer = 0 
Dim words As Integer = 0 
Do Until position = -1 
position = MyText.IndexOf(" ", position + 1) 
words = words + 1 
Loop 
MsgBox("There are " & words & " words in the text") 


هذه الحلقة تنفذ بلوك من الجمل طالما الشرط محقق,للحلقة الشكل العام التالي: 
While condition‏ 
Statement_block‏ 


End While 
(نهاية بينما)يرجع التحكم الى عبارة ها۷ "بينما" ,والتي‎ ٤۸۵ ۷ اذا كان الشرط nditi0ەء صحیحا فان جميع العبارات في البلوك سيتم تنفيذهاء عندما يصل التنفيذ الى العبارةعا¡‎ 
تعمل على تقييم الشرط مرة أخرى,فإذا الشرط مازال صحيحا,يتم اعادة العملية.اما اذا كان الشرط غير صحيح (خطأ)يتابع البرنامج مع الجمل التي تلي عبارة 0006ع “نهاية بينما"‎ 


الحلقة التالية تطلب من المستخدم بيانات عددية ,يستطيع المستخدم ان يدخل قيم سالبة ليدل على انه قد أنهى غقاة إدخال اقيم وبالتا“ ينهي الحلقة.وطالما ان المستخدم يعمل على إدخال قيم 
عددية موجبة,فان البرنامج يستمر بإضافتها للمتغير اهأه]الكلي: 
Dim number, total As Double‏ 
number = 0‏ 
While number >= 0‏ 
total = total + number‏ 
number = InputBox("Please enter another value")‏ 
End While‏ 
عملت على إسناد القيمة ©الى المتغير 66۴١‏ قبل ان تبداً الحلقة لان هذه القيمة ليست قيمة سالبة,ولا تؤثر على المجموع العام .في بعض الأحيان يتم تقيم الشرط الذي يحدد متى تنتهي 
الحلقة أعلى الحلقة,وفي هذه الحالة,نصرح عن متغير منطقي 4٠ا80‏ ونرجع إليه قيمة صح او خطاً من ضمن جسم الحلقة,إليك الخطوط العريضة لمثل هذه الحلقة: 
Dim repeatLoop As Boolean‏ 
repeatLoop = True‏ 


While repeatLoop 
{ statements } 
If condition Then 
repeatLoop = True 
Else 
repeattLoop = False 
End If 
End While 
يمكن ان ترى في بعض الأحيان بلوك حلقات غريبة كتالي:‎ 
While True 
{ statements } 
End While 
ومن الشائع تسريع الشرط الصحيح كما يلي:‎ 
While 1 = 1 


من الظاهر ان هذه الحلقة لانهائية يجب ان يتم إنهاءها من ضمن جسمها بالعبار ةه اا۷ × ,والتي يتم استدعاءها عندما يصبح شرط ما صح او خطأ. ,تنتهي الحلقة التالية عندما يتم 
مواجهة شرط ما في جسم الحلقة: 
While True‏ 
statements }‏ { 
If condition Then Exit While‏ 
more statements }‏ { 
End While‏ 


تستطيع ان تضع ,او تدخل تركيب تحكم داخل أخر(متل بلوك .۲٣٠٣‏ . .۴| ضمن الحلقةا×ه.. . ۴١.‏ )فيمكن لتراكيب التحكم في الفيجوال بيسك ان تكون متداخلة وعلى عدة مستويات 
كما تريد,والمحرر بشكل إلي يترك فراغات مناسبة لتراكيب القرار و الحلقات المتداخلة لجعل البرنامج أسهل من اجل القراءة,.عندما تدخل تراكيب التحكم ضمن بعضها البعض,عليك التأكد 
من انه يتم فتحها وإغلاقها من نفس التركيب.بعبارة أخرى:لا تستطيع ان تبدأً بالحلقة )×ه.. . ۴٥۴.‏ ضمن عبارة fإوتغلق‏ الحلقة بعد ۴| ٩۵‏ ان تنهي الشرط. يوضح مقطع الكود التالي 
كيف تدخل عدة عبارات تحكم بالسياق ضمن بعضها البعض(الأقواس المتعرجة تشير الى الجمل النظامية والتي يجب ان يتم استبدالها في مكانها والتي لن يتم ترجمتها بالطبع) 
For a = 1 To 100‏ 
statements }‏ { 
If a = 99 Then‏ 
statements }‏ { 
End If‏ 
While b < a‏ 
statements }‏ { 
If total <= O0 Then‏ 
statements }‏ { 
End If‏ 
End While‏ 
For c= 1 Toa‏ 
statements }‏ { 
Next c‏ 
Next a i‏ 
لقد كتبت أسماء متغيرات العداد ٣6امںهعبعد‏ العبارات "٠×‏ لأجعل من الكود أكثر قابلية للقراءة ومن اجل إيجاد عبارة الإغلاق المناسبة(التالي)»×ه. ,نهاية اذا؟| ٩ع‏ ,او نهاية بينما 
„(End While‏ 
تبين الجمل التالية تركيب متداخل لحلقة والتي تعمل مسح(استكشاف) لجميع عناصر مصفوفة ذات بعدينrayإa two-dimensional‏ : 
Dim Array2D(6, 4) As Integer‏ 
Dim iRow, iCol As Integer‏ 
For iRow = 0 To Array2D.GetUpperBound(0)‏ 
For iCol = 0 To Array2D.GetUpperBound(1)‏ 
Array2D(iRow, iCol) = iIRow * 100 + iCol‏ 
Debug.WriteLine(iIRow & ", " & iCol & " = " & Array2D(iRow, iCol) & " ")‏ 
Next iCol‏ 
Next IROW‏ 
الحلقة الخارجية(التي مع العدادW‏ 80 /)تتفحص كل صف للمصفوفة.بينما تتفحص الحلقة الداخلية جميع العناصر في الصف المحدد بواسطة عداد الحلقة الخارجية(86W۷|‏ )في كل عملية 
دوران»ءبعد ان تكمل الحلقة الداخلية عملها في الصف الذي حددته لها الحلقة الخارجية,يعود عداد الحلقة الخارجية ليزداد بمقدار واحد,والحلقة الداخلية يتم تنفيذها كاملا على الصف 
الثاني,فتعمل مسح لجميع عناصره,.يتالف جسم الحلقة من جملتين والتي تسند قيمة ما الى عنصر المصفوفة الحالي ومن ثم تطبعه في نافذة المخرجات,فالعنصر الحالي لدى كل عملية دوران 
4و Array2D(iRow, iCol)‏ .تستطيع ايضا ان تعمل على مداخلة عبارات متعددة,فالكود التالي يختبر القيمة المعطاة من قبل المستخدم لتحديد فيم اذا كانت موجبة فإذا كانت كذلك فانها 
تحدد فيم اذا كانت هذه القيمة تتجاوز حد معين. 
Dim Income As Decimal‏ 
Income = Convert.ToDecimal(InputBox("Enter your income"))‏ 
If Income > 0 Then‏ 
If Income > 12000 Then‏ 
MsgBox("You will pay taxes this year")‏ 
Else‏ 
MsgBox("You won't pay any taxes this year")‏ 
End If‏ 
Else‏ 
MsgBox("Bummer")‏ 
End If‏ 
تم مقارنة المتغیر "الدخل" | 06 6او لا مع صفر ,فإذا کان سالبارفان العبارة ھءاعللجملة .۲٣6٣‏ . .۴| سیتم تنفیذها وستظهر الرسالة 0۸116۲ 0×08 7598| ,ما اذا کان موجب 
فانه يتم مقارنته مع القيمة 12000 وبالاعتماد على نتيجة هذه المقارنة فانه سيتم عرض رسالة مختلفة,مقطع الكود المبين هنا لا ينجز أي تحقيقات شاملة ويفترض ان المستخدم لن يعمل 
علی إدخال نص عندما يطلب | منه لبرنامج ان یکتب دخله ٣٥٥0٣6‏ |. 


تسمح لك العبارة × "خرو ج" الخروج من مقطع الجمل رام۲ اة "ه۲ مبشكل سابق لأوانه(قبل إتمام تنفيذ كل الجمل)في تركيب تحكم ما, او من حلقة ما,أو حتى من إجراء ما ,افتقرض 
ان لديك الحلقة )×6 . . ۴٠١.‏ والتي تحسب الجذر التربيعي 0ه ٣٠‏ وء لسلسلة من الأعداد ,ولأن الجذر التربيعي للاعداد السالبة لا يمكن حسابه(فالطريقة 12۸.8٩٤‏ ستولد خطأً 
وقت التنفيذ) 
For i = 0 To UBound(nArray)‏ 
If nArray(i) < O Then‏ 
MsgBox(Can’t complete calculations” & vbCrLf &7ltem ” & i.ToString & ” is negative! ”)‏ 
Exit For‏ 
End If‏ 
nArray(i) = Math.Sqrt(nArray(i))‏ 
Next‏ 


فإذا تم إيجاد عنصر سالب في هذه الحلقة فان البرنامج يخرج من الحلقة ويستمر في تنفيذ الجمل التالية للجملة . يوجد عبارات خروج مشابهة من اجل (م0ه|...00()00 ×۴ )والحلقة 
N hile loop‏ ھي:) )٤×xi{ While‏ ,وايضا عبار ة اخترءم‌اهS‏ وهي(اهام5 †×۴) ,وايضا توجد عبارات خروج من اجل الوظائف(الدالات)و الإجراءات الفرعية وهي: اأ×ع) 
and Exit Sub)‏ ۴unction,فإذا‏ كانت الحلقة السابقة جزء من وظيفة فلربما تريد إظهار الخطا والخروج ليس فقط من الحلقة ولكن ايضا من الوظيفة نفسها باستخدام التعبیر )× ع 
Function‏ 


الفكرة في تقسيم التطبيقات الكبيرة الى أقسام اصغر ومقاطع قابلة للترتيب و الإدارة ليست بالجديدة في عالم البرمجة.فالعديد من المهمات البرمجية او ما يشابها يمكن ان يتم إدارتها وترتيبها 
بالكامل, ,فمعالج الحدث هو فقط مثال واحد عن تقسيم التطبيقات الكبيرة الى مهمات اصغر.فمثلا عندما تكتب كود لحدث النقر ,فأنت تركز على الاسم المستعمل,ولكن كيف سيتفاعل البرنامج 
مع حدث النقر؟ ماذا يحدث عندما يتم نقر الأداة بشكل مزدو ج؟او اذا ما تم النقر على اداة أخرى, هذه الأشياء ستجعلك قلقا فيما يخص برمجة الأحداث, فهي ء#أاجه"۲هم تخرق لغة 
الفيجوال بيسك ,او حتى ولو تم كتابة التطبيقات الكبيرة بواسطة أقسام اصغر فهل سيتم التعرف على هذه الأقسام بشكل جيد ,وهل من السهولة التحكم بها؟من اجل التساؤلات السابقة كل 
مهمة يتم إتمامها بواسطة إجراء مستقل والذي يتم اختباره بشكل منفصل عن البقية. 

كما ذكرت سابقا, نوعي الإجراءات المدعومة بواسطة الفيجوال بيسك هما : الإجراء الفرعي والوظيفة(البعض يطلق عليها الدالة) ,فالإجراء الفرعي عادة ينجز أفعالا ولا يعود بأي 
نتيجة.بينما الوظيفة من الناحية الأخرى ,تقوم بعمل بعض الحسابات وتعود بقيمة.وهذا فقط الفرق الوحيد بين الإجراءات الفرعية والوظائف,فكلاهما الإجراء الفرعي والوظائف يمكنها قبول 
معاملات نسبية:والتي هي القيم التي تمررها للإجراء عندما تستدعيه ,و عادة المعاملات النسبية | وأارمص و۲ 


الإجراءات هي مقطع من العبارات والتي تقوم بمهمة محددة تماما,ومقطع الجمل يتم وضعه ضمن مجمو عة عبارات طاS؟‏ ۸۵4 ...1ا5 ,ويمكن استدعاءها بالاسم 
الإجراء الجزئي التالي يعرض التاريخ الحالي في صندوق رسالة ويمكن استدعاءه بواسطة اسمه: 
Sub ShowDate()‏ 
MsgBox(Now().ToShortDateString)‏ 
End Sub‏ 
من الطبيعي أن تكون المهمة المنفذة بواسطة الإجراء الجزئي أن تكون أكثر تعقيدا من المعروضة هنا,ولكن حتى هذا الإجراء الجزئي هو مقطع من كود معزول عن باقي التطبيق.يتم تنفيذ 
عبارات الإجراء الجزئي وعندما يصل التنفيذ إلى نهاية العبارة Su‏ ١٣ع‏ يعود التحكم إلى البرنامج الذي استدعاه. من المكن الخروج من الإجراء بشكل مسبق باستخدام العبارۃة )| ٤×‏ 
. جميع المتغيرات التي يتم الإعلان عنها ضمن الإجراء هي متغيرات محلية بالنسبة للإجراء.فعندما سيتم الخروج من الإجراء تتوقف جميع المتغيرات المصرح عنها ضمنه من اجل 
عملية الخروج. 
معظم الجر امات تقبل ايضا التصرف تبعا للمعاملات النسبية,فالإجراء الجزئي ()56W۷0316يعرض‏ التاريخ الحالي في صندوق نص,اذا أردت أن يعرض أي تاريخ أخر عليك أن تعالجه 
بشكل مختلف وتضيف معامل نسبي له: 
Sub ShowDate(ByVal birth Date As Date)‏ 
MsgBox(birth Date. ToShortDateString)‏ 
End Sub‏ 
"تاريخ الميلاد" abirthDate‏ متغير يحفظ تاريخ ليتم عر هرونو عه ممراتاريخ(زمن),الكلمة المحجوزة | [/ا(8تعني أن الإجراء الجزئي(الفرعي)يرى نسخة من المتغير وليس 
المتغير نفسه.ما يعني هذا عمليا أن الإجراء الفرعي لا يستطيع أن يغير قيمة المتغير الممررة إليه بواسطة التطبيق الذي استدعاه,.لعرض التاريخ الحالي في صندوق رسالةءعليك استدعاء 
ShowDate()‏ 
لعرض أي تاريخ أخر بالمعالجة الثانية للإجراء الفرعي .استخدم عبارة مثل التالية: 
Dim myBirthDate = #2/9/1960#‏ 
ShowDate(myBirthDate)‏ 
أو تستطيع أن تمرر القيمة ليتم عرضها مباشرة بدون استخدام المتغير كوسيط 
ShowDate(#2/9/1960#)‏ 
اذا قررت فيما بعد أن تغير تنسيق التاريخ.يوجد فقط مكان واحد في كودك عليك تحريره: العبارة التي تعرض التاريخ من ضمن الإجراء الفرعي() 526 ۸0W؟S‏ : 
تنفيذ العبارة السابقة موضح بالشكل التالي: 
Burtanî wl || #F Cliek‏ 3# _| 
O Publaiz Class Forml‏ 
PFrizrate Sub Buttonl_ CIlIick#(ByVal sender As 3Sygstem.OhjeECL, ByVal e As 3ygstem. EventArgs]‏ 
anûaûl==s BUCEOBHLI.CIICE‏ 
Dim mYEirthDates = fafa, LIME:‏ 
ا 


استدجاء الاج اءالفے ج الف نبنا صن جن اجےاء 3ShowDate [mFEirthDate;‏ 
فر حم اخے عا[ ہطھی فا ہن خلال حنث الخ خط ج ا 
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أ‎ Sub ShouwDaTe [ETWal pHpirTtThDUarTte 1s Darcej] 
MsgBox [fbHirthDate . To3hortDateS ter ing] الاج اء الف جج الخ لنبناه‎ 1 
Enda 3ub 
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الدالة مشابهة تماما للإجراء الجزئي, ولكن الوظيفة تعود بنتيجة ما,وبسبب القيم المعادة من قبلها لذا فان الوظائف تشبه المتغيرات من حيث أن لديها أنواع.القيمة التي تمررها من الوظيفة 
والتي يتم إعادتها إلى الإجراء الذي يستدعيها,تدعى "القيمة المعادة" ونوعها يجب يطابق نوع الوظيفة 
تقبل الوظائف معاملات نسبية تماما مثل الإجراءات الفرعية.الجمل التي تصنع وظيفة ما يتم وضعها في مجمو عة من جمل"^nC†i0 Function. . .End ۴u‏ " کما ھو مبین ھنا: 
Function NextDay() As Date‏ 
Dim theNextDay As Date‏ 
theNextDay = Now.AddDays(1)‏ 
Return theNextDay‏ 
End Function‏ 


Dbject Browser Î Start Page.’ Form1.vb7| Form1.wb [Design] 


5 Public Llass Forml 


1 Private Sub Buttonl ClIicE(BFVTal sender As System. Dhjtct, ByVal E As System, EventArgs) 
ع‎ Euttonl.TIickE 
1 
آ‎ 
1 


Dim myEBirthDate = #2337 1960# 
ShowDate ImyEirthDate; 
ShowDate (#2797 1960#) 


Ma2HEO#x [bhirthDate . TOS hHOFTDaATESTE iNT} 
End 32ub 
ا‎ Function NextDayl] As Date 
Dim theNeExtDay As Date 
theNextDay = Nov. AAADaya 11) 
Return theMextDay 
End Function 
le Llass 
نة الم ر الموج‎ 
هي طريقة لنوع‎ A00 الكلمة المحجوزة ۸ 0آاع من ۴متبوعة باسم الوظيفة والكلمة المحجوزة التي تحدد نوع الوظيفةءبشكل مشابه تماما للتصريح عن المتغيرات. "إضافة يوم" ئرج‎ 
التاريخ ,وهي تضيف عدد من الايام للتاريخ الحالي,الوظيفة ()04¥×ه" تعود بتاريخ يوم الغد بإضافة يوم إلى التاريخ الحالي,الوظيفة رجN6×0 هي وظيفة مخصصة,والتي تستد‎ 
الطريقة sرج0 404 ۸المبنية داخليا(المعدة مسبقا) لإتمام الحسابات.‎ 
والتي يتم إتباعها بالقيمة التي تريد اعادتها من وظيفتك, هذه القيمة والتي عادة ما تكون متغير يجب أن يكون‎ R۲٢ نتيجة الوظيفة يتم اعادتها إلى البرنامج المستدعي لها,من خلال عبارة‎ 
من نفس نوع الوظيفة,في مثالنا:العبارة المعادة حدث لان تكون أخر عبارة في الوظيفة,ولكن يمكن أن تظهر في أي مكان ومن الممكن ايضا أن تظهر عدة مرات في كود الوظيفة.في المرة‎ 
الأولى يتم فيها تنفيذ العبارة المعادة ويتم إنهاء الوظيفة,ويعود التحكم للبرنامج المستدعي لها.تستطيع ايضا أن ترجع قيمة ما إلى الإجراء لمستدعي وذلك بإسناد النتيجة إلى اسم الوظيفة.‎ 
الطريقة لتالية بديلة عن كتابة كود الوظيفة ()ره20×ه:‎ 


Function NextDay() As Date 
NextDay = Now.AddDays(1) 
End Function 
"اعد" إنها تعد قيمة الوظيفة المعادة,ولكن‎ 86U۲١ لاحظ هذه المرة إنني قمت بإسناد نتيجة الحساب إلى اسم الوظيفة مباشرة,ولن استخدم المتغير ,هذا الإسناد لاينه الوظيفة مثل عبارة‎ 
"انهي الوظيفة" ,أو عندما يتم مصادفة العبارة ں۴ »ع "اخرج من الوظيفة". وبشكل مشابه تماما للمتغيرات‎ EQ ۴6)0١ ستنتهي الوظيفة عندما يتم الوصول إلى العبارة‎ 
يجب أن يكون للوظيفة اسم عباوامن مفرد ومميز ضمن مجالها(وهذا الكلام ينطبق على الإجراء الفرعي,بالطبع)اذا صرحت عن وظيفة في 0۲۳ نموذج ما,فان اسم الوظيفة يجب أن‎ 
صديق,فان اسمها يجب أن يكون مفرد ومميز في المشروع. للوظائف نفس قواعد المجال مم0عء‎ ۴۲6٣۵ یکون مفرد وممیز في الفورم, اذا ما صرحت عن وظیفة ما ٥اطں‌ م ‌کعام أو‎ 
التي يتم تطبيقها على المتغيرات ويمكن أن يتم ابتدائها بالعديد من نفس الكلمات المحجوزة.في الواقع,تستطيع أن تعدل المجال الافتراضي للوظيفة بواسطة الكلمة المحجوزة"عام" icاطں‌۴ أو‎ 
أو محمي لهامtه۴r أو صدیق ۴۲۵۸۵ وصديق ومحمي‌ل۸ ۴۲8 لهاع هاه .بالإضافة لذلك فان للوظائف أنواع تماما كالمتغيرات,ويتم التصريح عنها بالكلمة‎ ٥۷ خاص عه‎ 
لاه 0 تحصي عدد الحروف في نص ما.فان متوسط طول كلمة ما‎ ٣أ‎ ©C۸2۲5)( المحجوزة ء^"ك".على فرض أن الوظيفة () ۷۷0۲05 اه0 تعمل على إحصاء عدد الكلمات»ءو الوظيفة‎ 
يمکن أن يتم حسابه كما يلي:‎ 
Dim longString As String, avgLen As Double 
longString = TextBox1. Text 
avgLen = CountChars(longString) / CountWords(longString) 


العبارة التنفيذية الأولى تحصل على النص من ×6×86أداة صندوق النص وتسند هذا النص إلى متغير» والذي تم استخدامه فيما بعد كمعامل نسبي لكلا الوظيفتين,عندما يتم تنفيذ العبارة 
الثالثة فان الفيجوال بيسك يستدعي أولا الوظيفةياج © u‏ ه© والوظيفةول۲ 01۷0© مع المعاملات نسبية محددة ومن ثم يقسم النتائج المعادة.تستطيع استدعاء نفس بنفس الطريقة 
التي ت تستدعي فيها الإجراء الجزئي,ولكن النتيجة لن يتم تخزينها في أي مكان ,مثلا ,الوظيفة () C0۸۷6‏ يمكن أن تحول النص في صندوق نص ما إلى الحالة الكبيرة, وتعود بعدد الحروف 
التي قامت بتحويلها,بشكل طبيعي .ستستدعي هذه الوظيفة كما يلي: 
nChars = Convert()‏ 
اذا كنت لا تبالي بالنسبة للقيمة المعادة,فانك لن تحتاج إلا إلى تحديث النص على أداة صندوق النص ×6×80] ,سوف تستدعي الوظيفة ()۲ 00۸۷6 مع العبارة التالية: 
Convert()‏ 


الإجراءات الجزئية والوظائف ليست معزولة بالكامل عن باقي التطبيق. معظم الإجراءات ۲65 ۴١۲م‏ تقبل معاملات نسبية من البرنامج المستدعي,.إعادة تسمية هذا بمعامل نسبي 
umentوar:وهو‏ قيمة ما تعمل على تمريرها إلى الإجراء والتي بموجبها يعمل عادة الإجراء,. وهكذا كيفية التواصل بين الإجراءات الجزئية والوظائف مع بقية التطبيق. 
الإجراءات الجزئية والوظائف يمكن أن تقبل أي عدد من المعاملات النسبية,ويجب أن تزود بقيمة ما لكل معامل نسبي للإجراء عندما يتم استدعاءه,.بعض المعاملات النسبية يمكن أن تكون 
اختيارية وهذا يعني تستطيع أن نحذفها,سترى كيف تعالج المعاملات النسبية الاختيارية,الوظيفة المخصصة()۸ 11 مثلا,تقبل عددين وتعود بالأصغر بينهما: 
Function Min(ByVal a As Single, ByVal b As Single) As Single‏ 
Min = Ilf(a < b, a, b)‏ 
End Function‏ 


|١۴)‏ هي وظيفة معدة داخليا(جاهزة) والتي تقيم المعامل النسبي الأول,وهو تعبير منطقي,فإذا كان التعبير صحيح فان الوظيفة تعود بالمعامل النسبي الثاني.أما اذا كان هذا التعبير خطأ تعود 
الوظيفة ()۴||بالمعامل النسبي الثالث, لاستدعاء الوظيفة المخصصة ,استخدم بعض العبارات كما يلي: 
Dim val1 As Single = 33.001‏ 
Dim val2 As Single = 33.0011‏ 


Dim smallerVal As Single 
smallerVal = Min(val1, val2) 
Debug.Write("The smaller value is " & smallerVal) 
اذا نفذت هذه العبارات (ضع هذه الجمل في معالج حدث النقر على الزر)سترى التالي في نافذة الإخراج المباشر س0ل” اس مأهi١مصn| "القيمة الأصغر هي 33.001" ه1‎ 
اذا حاولت استدعاء نفس الوظيفة بقيمتين من النوع المزدوج ,بعبارة مثل التالية سترى القيمة 3.33في نافذة المخرجات المباشرة‎ "ءصaااer‎ value ك¡‎ 1 
Debug.WriteLine(Min(3.33000000111, 3.33000000222)) 
يعمل المترجم على تحويل كلا القيمتين من المزدوج إلى نوع البيانات المفرد,ويرجع واحد منهما, فأي منهما؟ليس هناك أي فارق طالما التحويل يتم إلى النوع المفرد,فكلا القيمتين نفس‎ 
"خيار التدقيق فعال" في بداية‎ Option Strict On öةرlبعll‎ لخدا,٥۸ وهو فعال‎ tit ەpماio الشيء.الشيء المهم الذي سيحدت اذا حاولت أن تستخدم الوظيفة () مع خیار التدقیق‎ 
الملف وقبل كل عبارة.أو ضع خيار التدقيق إلى فعال من صفحة خصائص المشروع كما تعلمت سابقاترى أن المترجم يضع خط متعرج تحت العبارة التي تعالج الوظيفة() 1 ,فالوظيفة‎ 
()۴|اتقبل متغيران من النوع الكائني كعاطهاا۷2 هزط0 كمعاملات نسبيةوا هم" اوه ,وتعود بأحدهما كنتيجة لها,فخيار التدقيق يمنع المترجم من تحويل الكائن إلى قيمة عددية‎ 
.لاستخدام الوظيفة مع خيار التدقيق ()۴|اعليك أن تغير معالجته كما يلي:‎ 
Function Min(ByVal a As Object, ByVal b As Object) As Object 
Min = Ilf(Val(a) < Val(b), a, b) 
End Function 
من الممكن أن تنفذ الوظيفة () 11۸ التي تستطيع ان تقارن المعاملات لجميع الأنواع(صحيح ؟#۲وها١| و كو ”أ٣ ءنصي ,تاريخءهاه ,وهكذا)سنعود إلى هذا المثال البسيط فيما بعد في‎ 
“Overloading Functions.” "فئlۈ¡bولl هذا الفصل"إعادة تعريف‎ 


واحد من أهم المواضيع في معالجة إجراءاتك هو موضوع الآلية المستخدمة في تمرير المعاملات النسبية,فالأمثلة حتى الآن قد استخدمت الآلية الافتراضية:تمرير المعاملات النسبية بالقيمة 
مداه۷رط.الآلية الاخرى في تمرير المعاملات النسبية هي التمرير بالمرجع ٥٠٠8م‏ لإط ,على الرغم من أن معظم المبرمجين يستخدمون الآلية الافتراضية, ولكن من الهام أن تعرف 
الاختلاف بين كلا الاليتين ومتى تستخدم أي منهما. 


عندما تمرر معامل نسبي ما بالقيمة,فان الإجراء(الإجراء الفرعي او الوظيفة) فقط يرى نسخة من المعامل النسبي,حتى ولو غيرها الإجراء , فالتغيرات غير ثابتة the changes aren’†‏ 
„permanent‏ بكلمة أخرى قيمة المتغير الأصلي الممررة إلى الإجراء لن تتأثر.الفائدة من تمرير المعاملات النسبية بالقيمة هو أن قيم المعامل النسبي معزولة عن الإجراء,وفقط مقطع 
الكود الذي تم التصريح عنها به يستطيع أن يغير قيمها,وهذه هي الآلية الافتراضية في تمرير المعاملات النسبية في الفيجوال بيسك 2008 ,في الفيجوال بيسك6 كانت آلية التمرير 
الافتراضية للمعاملات النسبية بالمرجع.وهذا شيء يجب أن تأخذه في حسبانك,.وخاصة اذا عملت على ترحيل كود فيجوال بيسك6 إلى الفيجوال بيسك2008 . 
لتحديد المعاملات النسبية التي سيتم تمرير ها بالقيمة. استخدم الكلمة المحجوزة ا8/۷ أمام اسم المعامل النسبي. فاذا ما حذفت الكلمة المحجوزة اه8/۷ ,فان المحرر سيعمل على إدخالها 
بشكل أوتوماتيكي,لأنها الخيار الافتراضي,. 
للتصريح غل أن المعامل النسبي للوظيفة eg re5))‏ يتم تمريره بالقيمة .استخدم الكلمة المحجوزة ا8۷2 في تصریح المعامل النسبي کما يلي: 
Function Degrees(ByVal Celsius As Single) As Single‏ 
Return ((9 / 5) * Celsius + 32)‏ 
End Function‏ 


لترى ما تعمله الكلمة المحجوزة اج 8/۷أضف السطر التي تغير قيمة المعامل النسبي في الوظيفة: 
Function Degrees(ByVal Celsius as Single) As Single‏ 
Celsius = 0‏ 
Return ((9 / 5) * Celsius + 32)‏ 
End Function‏ 


والان استدعي الوظيفة كمايلي: 
Dim ctemp As Integer‏ 
CTemp = InputBox("Enter temperature in degrees Celsius")‏ 
MsgBox(CTemp.ToString & " degrees Celsius are " & Degrees((CTemp)) & " degrees Fahrenheit")‏ 


End Sub 
32 degrees Celsius are 89.6 degrees Fahrenheit 
بدل الكلمة المحجوزة |ج8/۷بالكلمة المحجوزة ۸6۴ /8في تعريف الوظيفة واستدعي الوظيفة كما يلي:‎ 
Dim ftemp As Single 
Dim celsius As Single 
Celsius = 32.0 


FTemp = Degrees(Celsius) 
MsgBox(Celsius.ToString & " degrees Celsius are " & FTemp & " degrees Fahrenheit") 
هذه المرة سيعرض البرنامج الرسالة التالية:"0 درجة سلسيوس هي 89.6 درجة فهرنهايت"‎ 
0 degrees Celsius are 89.6 degrees Fahrenheit 
عندما تم تمرير المعامل النسبي الى الوظيفة,كانت قيمته32 .ولكن الوظيفة غيرت هذه القيمة(غيرت قيمته) وعند الإعادة كانت القيمة 0 .لان المعامل النسبي تم تمريره بالمرجعءفأي تغير‎ 
يتم عمله في الإجراء يؤثر على المتغير بشكل تابتراأ"6٣2"٠ 6۲م .بالنتيجة عندما حاول البرنامج المستدعي ان يستخدم المتغير كان للمتغير قيمة مختلفة عن تلك المتوقعة.‎ 


اذا أردت كتابة وظيفة تعود بأكثر من نتيجة واحدة,فعلى اغلب الأحوال عليك ان تمرر كأ٣ع"‏ يوه ام ماله معاملات نسبية إضافية وبالمرجع؟ 8/۸6 وتضع قيم هذه المعاملات 
من ضمن كود الوظيفة.فالوظيفة "()5ء|اءأة†65اهانءاج٥‏ الإحصاءات المحسوبة" التي ستراها فيما بعد في هذا المقطع,تحسب الإحصائيات الضرورية لمجموعة بيانات,.فيم مجموعة 
البيانات يتم تخزينها في مصفوفة تم تمريرها الى الوظيفة بالمرجع,فالوظيفة ()ءءأاءااع†S‏ 6أهاuاجة©يجب‏ ان تعود بقيمتين :وهما المتوسط مهوه۴٠۷هوالانحراف‏ المعياري 
standard deviation‏ لمجموعة البيانات, إليك التصريح عj‏ lلوۆظيغۉ)( Calculate Statistics‏ : 
Function CalculateStatistics(ByRef Data() As Double, ByRef Avg As Double, ByRef StDev_ As Double) As Integer‏ 
End Function‏ 
تعود الوظيفة بهو "| والتي هي عدد القيم في مجموعة البيانات, .والقيمتين الهامتين المحسوبتين من قبل الوظيفة تم اعادتهم في المعاملات النسبية و۸۷ و S26۷‏ 
Function CalculateStatistics(ByRef Data() As Double, ByRef Avg As Double, ByRef StDev As Double) As Integer‏ 
Dim i As Integer, sum As Double, sumSqr As Double, points As Integer‏ 
points = Data.Length‏ 
For i = 0 To points - 1‏ 
sum = sum + Data(i)‏ 
sumSqr = sumSqr + Data(i) ° 2‏ 
Next‏ 
Avg = sum / points‏ 
StDev = System.Math.Sqrt(sumSqr / points - Avg ° 2)‏ 
Return (points)‏ 
End Function‏ 


Dim Values(99) As Double 
' Statements to populate the data set 
Dim average, deviation As Double 
Dim points As Integer 
points = CalculateStatistics(Values, average, deviation) 
Debug.WriteLine(points & " values processed.") 
Debug.WriteLine("The average is " & average & " and") 
Debug.WriteLine("the standard deviation is " & deviation) 
استخدام المعاملات النسبية بالمرجع هي ابسط طريقة للوظيفة التي ترجع بعدد من القيم,ولكن مهمايكن,الانحراف في الدالة التي استخدمتها يمكن ان يصبح غير مرتب(فوضوي‎ 
اذا أردت ان تعود بقيم أكثر.يوجد مشكلة أخرى في هذه التقنية وهي انها غير واضحة بشان المتغيرات النسبية هل يجب ان يتم إسناد قيم له قبل استدعاء الوظيفة.كما‎ ةصاخو)cاutter0‎ 
سترى باختصار من الممكن بالنسبة للوظائف ان تعود بمصفوفة او تركيب مخصص مع الحقول و بأي عدد من القيم‎ 


عندما تمرر الكائنات كمعاملات نسبية فانه يتم تمريرها بالمرجع,حتى ولو خصصت لها الكلمة المحجوزة"بالقيمة" يستطيع الإجراء الوصول وتعديل مكونات الكائن الممررة كمعاملات 
نسبية,وستكون قيمة جديدة مرئية في الإجراء الذي صنع الاستدعاء.مقطع الكود التالي يوضح هذا. فالكائن هو أءأاله٣A۲‏ قائمة مصفوفة والتي تم تحسينها من مصفوفة ,وقائمة المصفوفة 
كاه تم مناقشتها بالتفصيل لاحقا, ولكن لتتبع هذا المثال كل ما تحتاج معرفته هو ان الطريقة ١0^"إضافة"‏ تعمل على إضافة بند جديد الى قائمة المصفوفةءوتستطيع ان تصل الى 
البنود المفردة بواسطة قيمة ×هل ”| الاندكس(الفهرس) بشكل مشابه لعناصر المصفوفة. في معالج حدث الضغط على الزر انشا نسخة جديدة من كائن قائمة المصفوفة واستدعي الإجراء 
الفرعي PopulateList()‏ لملئ القائمة .حتی ولو تم تمرير كائن قائمة مصفوفة ة الى الإجراء الجزئي بالقيمة فان الإجراء الجزئي سیصل الى بنودها 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click‏ 
Dim aList As New ArrayList()‏ 
PopulateList(aList)‏ 
Debug.WriteLine(aList(0).ToString)‏ 
Debug.WriteLine(aList(1).ToString)‏ 
Debug.WriteLine(aList(2).ToString)‏ 
End Sub‏ 
نفس الكلام ينطبق على المصفوفة وجميع collections‏ المجمعات الأخرى.حتى ولو خصصت الكلمة المحجوزة بالقيمة,فانه تم التمرير بالمرجع,.يوجد طرق ك0٣أه"‏ أ هوهام جيدة 
أخرى من اجل تعديل مكونات التركيب من ضمن إجراء ومنها معالجة الإجراء كوظيفة تعود بتركيب »كما سيتم شرحها في تطغ “Functions Returning Structures,”‏ 
الوظائف التي تعود بتراكيب" فيما بعد في هذا الفصل. 


تزود الفيجوال بيسك 2008 بالعديد من الوظائف التي تعالج مهمات مشتركة او معقدة,وتستطيع ان تجدها في المستندات(المساعدة0N‏ 18)ستجدهم بالتفصيل في التالي©(فيجوال 
استوديو_فيجوال بيسك_المراجع_فرع الوظائف لشجرة المحتويات في مستندات فيجوال استوديو) 

Visual Studio_ Visual Basic _ Reference_ Functions branch of the contents tree in the Visual Studio documentation.) 

فيوجد وظائف من اجل العمليات الرياضية المشتركة,وظائف لانجاز الحسابات مع التاريخ(و هذه بالحقيقة عمليات معقدة جدا) ,وظائف التمويلاهأء ه٣‏ ا؟ ,والعديد العديد من الوظائف 
الأخرى. وعندما تستخدم الوظائف الجاھزة لیس عليك معرفة كيف تعمل داخليا ,فقط عليك معرفة كيف تستدعي هذه الوظائف وكيفية استخلاص القيم المعادة. 
فالدالة(الوظيفة()†" ۴ )مثلا تحسب المدفوعات الشهرية على قرض ما,كل ما تحتاج معرفته هو المعاملات النسبية التي يجب ان تمررها الى الوظيفة وكيفية استخلاص النتيجة. 
NPe‏ 


MPay = Pmt(Rate, NPer, PV, FV, Due) 
:۴۷ وايضا المعامل‎ 
accumu|aام .وهذه المعاملات ليس لها حاجة في حالة القرض,ولكن يمكن ان تساعدك على حساب كمية النقود التي اأومم هك ستودعها في البنك كل شهر لاستكمال‎ 
للبنك وستدفعها في کل شهر حتی یتراكم المبلغ‎ ٥۷6 الكمية المطلوبة خلال الفترة المقررة للقرض.(الكمية المعادة بواسطة الوظيفة هي قيمة سالبة لأنها نقود مستحقة عليك(أنت مدين بها‎ 
الكلي المستحق عليك خلال فترة القرض المقرر ان تستوفي فيها كامل القرض)‎ 
To calculate the monthly payment for a $20,000 loan paid off over a period of six years at a fixed interest rate of 7.25%, you call the 
Pmt() function, as shown in Listing 
لحساب المدفوع شهريا من اجل مثلا قرض كميته 520,000خلال فترة ستة سنوات عند نسبة فائدة ثابتة سنويا 7.25% استدعي الوظيفة )۳ كما في الكود التالي:‎ 
Dim mPay, totalPay As Double 
Dim Duration As Integer = 6 * 12 
Dim Rate As Single = (7.25 / 100) / 12 
Dim Amount As Single = 20000 
mPay = -Pmt(Rate, Duration, Amount) 
totalPay = mPay * Duration 
MsgBox("Your monthly payment will be " & mPay.ToString("C") & vbCrLf & "You _ will pay back a total of " & 
totalPay. ToString("C")) 
لاحظ ان نسبة الفائدة تم تقسيمها على 12 لان الوظيفة تطلب الفائدة الشهرية المقصودة وليس الفائدة السنوية. والقيمة المعادة بواسطة الوظيفة "8 هو ة8 المدفوع شهريا للقرض‎ 
المحدد بالمتغير ات :0۸/اج/ 0 الفترة والكمية أ١ اه "4 ونسبة الفائدةع)جه۸ فاذا وضعت السطور السابقة في معالج حدث الضغط على زر شغل المشروع ومن ثم اضغط على الزر‎ 
ستظهر لك الرسالة التالية في صندوق رسالة:‎ 


Let's say you want to accumulate $40,000 over the next 15 years by making monthly deposits of equal amounts. To calculate the 
monthly deposit amount, you must call the Pmt() function, passing O as the present value and the target amount as the future value. 
Replace the statements in the button’s Click event handler with the following and run the project 
لنقول انك تريد ان تضع نقود في البنك حتى تتراكم وتصبح $40,000 في 15الخمسة عشر السنة القادمة وذلك باستيداع كميات شهرية متساوية خلال هذه 15 سنة.لحساب الكمية التي‎ 
وتمرر لها0 كقيمة حالية/ ۴ ,والقيمة المقصودة(المطلوبة/۴|القيمة المستقبلية)بدل الجمل في حدث الضغط على الزر بالتالي ومن ثم جرب‎ ۴۳"٤)( ستودعها شهريا, عليك استدعاء الوظيفة‎ 
المشروع:‎ 
Dim mPay As Double 
Dim Duration As Integer = 15 * 12 
Dim Rate As Single = (4.0 / 100.0) / 12 
Dim Amount As Single = -40000.0 
mPay = Pmt(Rate, Duration, 0, Amount) 
MsgBox("A monthly deposit of " & mPay.ToString("C") _ 
& vbCrLf & "every month will yield $40,000 in 15 years") 
مايظهره هذا الكود هو انك اذا أردت ان تراكم$40,000 خلال 15 سنة ,على فرض 4% معدل فائدة سنوي ثابت ,عليك ان تودع شهريا$162.54,وسوف تضع أنت في البنك‎ 
تقريبا530,000 والباقي سيكون الفائدة التي تربحها.‎ 
الوظيفة واحدة من ابسط وظائف التمويل والمزودة من قبل إطار العمل)مس ه6" ه۴۴ ,ولكن معظمنا يجد انه من الصعوبة كتابة الكود لهذه الوظيفة لان الحسابات التمويلية شائعة تماما في‎ 
البرمجة الموجهة للأعمال,فالعديد من الوظائف التي تحتاجها موجودة مسبقا وكل ماتريد معرفته هو كيفية استدعاءها,فإذا كنت مطور تطبيقات تمويلية عليك ان تبحث عن وظائف التمويل‎ 


في المستندات.دعنا ننظر الى وظيفة جاهزة أخرى وهي اسم الشهر() ٠"8‏ 2١اه‏ , والتي تقبل كمعاملات نسبية,رقم الشهر وتعود باسم الشهر. هذه الوظيفة ليست بالوظيفة التافهة كما 
يمكن ان تعتقد لأنها تعود باسم الشهر او لأنها اختصار 0ج۲6۷ ططج في اللغة للويندوز المحلي(الإعدادات الإقليمية للغة) .الوظيفة مص 2١ا10‏ تقبل معاملات نسبية رقم الشهر 
وقيمة صح/خطأ والتي تحدد فيما اذا سوف تعود باختصار او بالاسم الكامل للشهر ,الجمل التالية تعرض اسم الشهر الحالي(كلاهما الاختصار والاسم الكامل)في كل مرة تنفذ فيها هذه الجمل 
سوف ترى اسم الشهر الحالي في للغة الحالية(لإعدادات اللغة التي لديك في نظام كمبيوترك) 
Dim mName As String‏ 
mName = MonthName(Now.Month, True)‏ 
MsgBox(mName) ' prints Jan”‏ 
mName = MonthName(Now.Month, False)‏ 
MsgBox(mName) ' prints ”January”‏ 
وظيفة أخرى مشابهة للسابقة وهي الوظيفة والتي تعود باسم اليوم لأسبوع محدد ,وهذه الوظيفة تقبل معامل نسبي اضافي يحدد اليوم الأول من الأسبوع(راجع مستندات ميكروسوفت 
لمعلومات اضافية حول الشكل العام للوظيفة)الدور لرئيسي للوظائف هو توسيع ااج هاعم نfالفعالية‏ (الناحية الوظيفية) للغة. العديد من الوظائف التي تقوم إلى حد ما بالعمليات التطبيقية 
المشتركة أو العامة تم تضمينها في اللغة,ولكنها ليست كافية تقريبا لاحتياجات المطورين أو لجميع أنواع التطبيقات, هذا بالإضافة إلى الوظائف الجاهزة تستطيع أن تكتب وظائف مخصصة 
لتبسيط تطوير تطبيقات خاصة.كما سيتم شرحه في المقطع التالي.. 


معظم الكود الذي نكتبه للفورم يكون في وظيفة مخصصة أو في إجراء جزئي تابع لهاو هذا الإجراء(سواء كان الإجراء الجزئي أو الفورم)يمكننا أن نستدعيه من عدة أماكن في 
التطبيق.والإجراءات الجزئية هي تماما مثل الوظائف ما عدا أنها لا تعود بقيمة,لذا سوف نركز على معالجة الوظائف المخصصة باستثناء کت کد راک کل ف قارف 
المقطع التالي ينطبق على الإجراءات الجزئية ايضا. 

لنظر على مثال بسيط نوعا ما(ولكنه ليس تافه)لوظيفة تعمل شيء ما مفيد قي حقيقة الأمر. يتم تعريف (تحديد) الكتب بواسطة "عدد الكتاب القياسي الدولي" وهذا العدد ماوأملامفرد 
وممیز(88N|):‏ 

international Standard book number (ISBN)‏ ویترکب ` ا الد من 2 رقم متبوغة برقم اختبار check‏ الحساب رقم الأختبار هذا تضرب كل رقم من ال12 رقم 


رقم الاختبار للعدد978078212283 58| قم بحساب مجموع ناتج ال التالية: 


المجموع هو99 وعندما تقسمه على10 فالباقي هو9 ورقم الاختبار هو9-10 أو 1 وبالتالي "العدد القياسي الدولي للكتاب" الكامل هو(9780782122831 : |58١‏ ).الوظيفة 
(SBN CheckDigit‏ المبينة في الكود التالي تقبل ال2 1رقم لل56| كمعاملات نسبية وتعود برقم الاختبار المناسب check digit‏ 
Function ISBNCheckDigit(ByVal ISBN As String) As String‏ 
Dim i As Integer, chksum As Integer = 0‏ 
Dim chkDigit As Integer‏ 
Dim factor As Integer = 3‏ 
For i = O0 To 11‏ 
factor = 4 - factor‏ 
chksum += factor * Convert. Tolnt16(ISBN.Substring(i, 1))‏ 
Next‏ 
Return (((10 - (chksum Mod 10)) Mod 10)).ToString‏ 
End Function‏ 
الوظيفة)آ9 86۸5 ©|©56[[تعود بقيمة نصية لان أرقام 158s‏ تم معالجتها كنصوص وليس أعداد,(ما يؤدي إلى أصفار هام في الل[ 158 ,ولكن كمجوع ليس له معنى ويتم حذفه في 
القيم العددية). الطربقة و١٣وطں؟‏ لكائن النص تستخرج عدد الحروف من النص الذي يتم تطبيقها عليه.المعامل النسبي الأول هو موضع نص في النلص والثاني هو عدد الحروف التي 
یجب ب استخراجها .التعبير(1 ISBN. Substring(i,‏ يستخرج حرف واحد في كل مرة من متغير النص /SBN‏ .خلال الدوران الأول للحلقة فانه يستخرج الحرف الأول,وخلال الدوران 
الحرف النتخرج هو رقم عددي ,والذي تم ضربه بقيمة المتغير ٣0اه‏ وتم إضافة النتيجة إلى المتغير 6۸50| هذا المتغیر ھو مجمو ع الاختبار su‏ )٥۸ہ‏ لل 56| بعد أن تم 
حساب المجموع قمنا بتقسيمه على 10 وأخذنا باقي القسمة(المعامل الأول | 0© يعطي باقي عملية القسمة على عشرة)والتي طرحناها من عشرة والمعامل الثاني 06 إيضع قيمة العشرة 
إلى صفر. وهذا هو رقم اختبار ال |68١N‏ وهو ما تعود به الوظيفة. 
تستطيع استخدام هذه الوظيفة في تطبيق يحفظ قاعدة بيانات الكتب للتأكد من أن جميع الكتب التي تم إدخالها با568[| صحيح.وتستطيع استخدامها مع تطبيقات الانترنت والتي تسمح 
للمستعرض بان يطلب كتبا بواسطة |56١‏ الخاص بها,نفس الكود سيعمل مع تطبيقين مختلفين ,حتى عندما تمرره إلى مطورين اخزين ,فليس على المطورين الذين يستخدمون الوظيفة التي 
عملتها أن يعرفوا كيف تم حساب رقم الاختبار ,عليهم فقط استدعاء هذه الوظيفة واستخلاص نتيجتها, لاختبار الوظيغISBNCheckDigi|‏ ,ابد مشروع جديد وضع زر على الفورم ومن 
ثم ادخل العبارات التالية في معالج حدث الضغط على الزر كما يلي: 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click‏ 
Debug.WriteLine("The check Digit is " & ISBNCheckDigit("978078212283"))‏ 
End Sub‏ 
بعد إدخال كود الوظيفة)/66۸519©[ 586[ والكود المستدعي لها كما عملنا عندما تم استدعاء الوظيفة من خلال معالج حدث الضغط على الزر ,يمكنك بدل أن يتم إظهار النتيجة في نافذة 
المخرجات أن تضع أداة صندوق نص على الفورم وتمرر خاصية ٠×‏ ٣النص‏ لأداة صندوق النص إلى الوظيفة لحساب رقم الاختبار. 


تعلمت حتى الآن كيف تكتب وتستدعي الإجراءات مع العديد من المعاملات النسبية وكيفية استخلاص القيم المعادة للوظائف واستخدامها في كودك ,في هذا المقطع سنغطي العديد من 
المواضيع المتقدمة على تقنية تمرير المعاملات النسبية وكيفية كتابة الوظائف التي تعود بقيم متعددة ,أو مصفوفات من القيم وأنواع بيانات مخصصة: 


بشكل عام جميع المعاملات النسبية التي يتوقعها إجراء ما بتم جدولتها في تعريف الإجراء,والبرنامج الذي يستدعي الإجراء يجب أن يزود بالقيم من اجل جميع المعاملات النسبية.في بعض 
الحالات٣asioےocc‏ 0۸ ومھما تکن,یمکن أن لا تعرف كم عدد المعاملات النسبية التي سيتم تمرير ها إلى الإجراء,.فالإجراءات التي تحسب المتوسطات glaverages‏ بشکل عام» 
معالجة قيم متعددة تقبل من القليل إلى العديد من المعاملات النسبية والتي عددها غير معروف وقت التصميم,لذا فان الفيجوال بيسك2008 يدعم الكلمة المحجوزة Param Array‏ روالتي 
تسمح لك بتمرير عدد متغير من المعاملات النسبية إلى إجراء ما.دعنا ننظر إلى المثال التالي :افرض انك تريد أن تملا أداة صندوق قائمة×80ءأل بالعناصر,لإضافة بنود إلى أداة 
صندوق القائمة,استدعي الطريقة "إضافة ل۸4 "للمجمع التابع لعناصرها كما يلي: 
ListBox1.ltems.Add("new item") 1‏ 
هذه الجملة تضيف نص "بند جديد 6W |18۸١"‏ | إلى أداة صندوق القائمة .اذا اضفت عدة بنود بشكل متلاحق إلى أداة صندوق القائمة من ضمن كودك ,تستطيع كتابة إجراء جزئي والذي 
ينجز هذه المهمة.الاجراء التالي يضيف عدد متغير من المعاملات النسبية إلى أداة صندوق القائمة: 
Sub AddNamesToList(ByVal ParamArray NamesArray() As Object)‏ 
Dim x As Object‏ 
For Each x In NamesArray‏ 
ListBox1.ltems.Add(x)‏ 
Next x‏ 
End Sub‏ 
هذه المعاملات النسبية للإجراء الجزئي هي مصفوفة مسبوقة بالكلمة المحجوزة ParamArray‏ والتي تحفظ جمیع المعاملات arametersمالممررة‏ إلى الإجراء الجزئي. اذا كانت 
مصفوفة المعاملات ه2۲۲ #6۲" همم عط tتحفظ‏ بنود من نفس النو ع,تستطيع أن تصرح عن مصفوفة من نوع معين(نص 5٣|”‏ ,أعداد صحيحة#۲ )"| ,وهكذا)لإضافة بنود إلى 
القائمة استدعي الإجراء الفرعي ءاه آ65" N2‏ ١ك‏ كمايلي: 
AddNamesToList("Robert", "Manny", "Renee", "Charles", "Madonna")‏ 


subroutine is given by the following expression 
.فعدد المعاملات النسبية التي تم تمریرها‎ parameter a۲ لمصفوفة المعاملات‎ Length اذا أردت معرفة عدد المعاملات النسبية الممررة بشكل فعلي إلى الإجراء, استخدم الخاصية‎ 
NameSArray.leîgih)):يئلlتلا تعطى بالتعبير‎ ۸40 N2۳65 إلى الإجراء الفرعي 5أ61‎ 
الحلقة التالية تدور على جميع عناصر المصفوفة إك65A۲۲ 4ل وتضيف هذه العناصر إلى القائمة:‎ 
Dim i As Integer 
For i = 0 To NamesArray.GetUpperBound(0) 
ListBox1.ltems.Add(NamesArray(i)) 
Next i 
مصفوفات الفيجوال بيسك وكما علمنا من قبل أن فهرس العنصر الأول هو الصفر والطريقة 660606۲800 تعود فهرس العنصر الأخير في المصفوفة.الإجراءات التي تقبل العديد‎ 
من المعاملات النسبية تعتمد على ترتيب المعاملات النسبية.لحذف بعضا من المعاملات النسبية ,عليك استخدام الفاصلة الموافقة,لنقول انك تريد أن تستدعي بعض الإجراءات وتحدد‎ 
المعاملات النسبية الأول,الثانيءالثالث والرابع.فيجب استدعاء الإجراء كما يلي:‎ 
ProcName(arg1, , arg3, arg4) 
المعاملات النسبية لإجراءات فرعية مشابهة تكون عادة مشابهة في ٠ں اء (الأولوية) ,وترتيبها لا يعمل أي اختلاف.‎ 
م٣آ الوظائف التي تحسب المتوسط أو الإحصاءات الأساسية الاخرى لمجموعة من الأعداد أو إجراء فرعي يملا أداة صندوق قائمة أو أداة صندوق مركب هي مرشحة رئيسية همص‎ 
تنفذ هذه التقنية.‎ نالcandi‎ 5 
اذا كان الإجراء يقبل عدد متغير من المعاملات التي تكون غير متساوية الأولوية,عليك أن تأخذ بالتقنية المشروحة في المقطع التالي.اذا كانت الوظيفة تقبل مصفوفة معاملات يجب أن تكون‎ 
هذه المعاملات هي الأخيرة في القائمة وان لا يكون احد المعاملات الاخرى اختياري.‎ 


تعلمت كيف تكتب إجراءات بمعاملات نسبية اختيارية وكيف تمرر عدد متغير من المعاملات إلى الإجراء. 
ومع ذلك القيد الرئيسي لآلية تمرير المعاملات النسبية, هو ترتيب المعاملات النسبية.بشكل افتراضي ,فيجوال بيسك يطابق القيم الممررة إلى إجراء ما بالمعاملات النسبية المصرح عنها 
بالترتيب(وهذا هو السبب في أن المعاملات النسبية التي رايتها حتى الآن تدعى المعاملات النسبية الموضعيةا ج١ positi0‏ ( 
هذا التقييد تم رفعه(ترقيته) بواسطة إمكانية(مقدرة)الفيجوال بيسك 2008 لتحديد المعاملات النسبية المسماة(المحجوزة) وتستطيع أن تزود بالمعاملات النسبية في أي ترتيب لان التميز هنا 
بالاسم وليس بترتيب هذه المعاملات في قائمة المعاملات النسبية للإجراء.افترض انك كتبت وظيفة تتوقع ثلاث معاملات نسبية:الاسم»العنوان»وعنوان الاميل. 
Function Contact(Name As String, Address As String, EMail As String)‏ 
عندما تستدعي هذه الوظيفة عليك أن تزود ثلاث نصوص والتي تطابق المعاملات النسبية:الاسم,والعنوان,والايميل,في ذلك الترتيب,مهما يكن يوجد طريقة أكثر أمنا لاستدعاء هذه 
الطريقة:زود المعاملات ات النسبية بأي ترتيب بواسطة أسماءها.فبدلا من استدعاء الوظيفة كما يلي: 
Contact("Peter Evans", "2020 Palm Ave.,Santa Barbara, CA 90000", _‏ 
"PeterEvans@xample.com")‏ 
تستطيع استدعاءها كمايلي: 
Contact(Address:="2020 Palm Ave., Santa Barbara, CA 90000", _‏ 
EMail:="PeterEvans@example.com", Name:="Peter Evans")‏ 
المعاملڭ يسند القيم للمعاملات المسماة لان المعاملات النسبية تم تمريرها بالاسم فتستطيع أن تزود بها و بأي ترتيب تريد.لتختبر هذه التقنية ادخل التصريح التالي للوظيفة في كود الفورم: 
Function Contact(ByVal Name As String, ByVal Address As String, ByVal EMail As String) As String‏ 
Debug.WriteLine(Name)‏ 
Debug.WriteLine(Address)‏ 
Debug.WriteLine(EMail)‏ 
Return ("OK")‏ 
End Function‏ 
ومن ثم استدعي الوظيفة من ضمن حدث الضغط على الزر بالعبارة التالية: 
Debug.WriteLine(Contact(Address:="2020 Palm Ave., Santa Barbara, CA 90000", _‏ 
Name:="Peter Evans", EMail:="PeterEvans@example.com"))‏ 
سترى التالي في نافذة المخرجات المباشرة: 


تعرف الوظيفة أي من القيم المطابقة إلى المعامل النسبي وتستطيع أن تعالجهم بنفس الطريقة التي تعالج المعاملات النسبية الموضعية. لاحظ أن تعريف الوظيفة هو نفسه فيما كنت تستدعيها 
بالمعاملات النسبية الموضعية أو الاسمية,الاختلاف هو في كيفية استدعاء الوظيفة وليس في كيفية الإعلان عنها,فالمعاملات النسبية الاسمية تجعل الكود أكثر أمنا وأسهل للقراءة,ولكن 
وبسبب نها تحتاج ى الكثير من الكتابة فمعظم المبرمجين لا يستخدمون هذه الطريقة ,بالإضافة إلى ذلك ,عندما يكون المساعد الفوري فعال 0١‏ كأ ¡ te6‏ تستطیع أن تری 
تعريف الوظيفة عندما تدخل المعاملات النسبية(أثناء كتابة الكود يظهر المساعد الفوري تعريف المتغيرات ,الوظائف.....)وهذا م يقلل من وام م جس مبادلة متغيران بالخطأ. 


الوظائف غير مقتصرة على ارجاع أنواع بيانات بسيطة مثل الأعداد الصحيحة او النصوص,من الممكن ان تعود بأنواع بيانات مخصصة وحتى مصفوفات,.إمكانية الوظائف على ارجاع 
جميع أنواع البيانات تجعلها مرنة جدا ويمكن كتابة الكود لها ببساطة ,لذلك فإننا سوف نستكشفها بالتفصيل في المقطع التالي,.استخدام أنواع بيانات معقدة مثل التراكيب والمصفوفات تسمح 
لك بكتابة وظائف تعود بقيم متعددة. 


افترض انك تريد وظيفة تعود بمدخرات زبون ما و أرصدة حسابه الجارية,حتى الآن,تعلمت انك تستطيع ان تعود بقيمتين او أكثر من وظيفة ما,بتزويد المعاملات النسبية بواسطة الكلمة 
الnحجرزة ByRef‏ .الطريقة الأكثر روعة هي إنشاء نوع بيانات مخصصة(تراكيب) وكتابة وظيفة ما تعود بمتغير من هذا النوع .إليك متال بسيط عن الوظائف التي تعود بنوع بیانات 
مخصص و هذا المثال يضع الخطوط العريضة للخطوات التي يجب ان تعيدها في كل مرة تريد فيها ان تنشئ وظيفة تعود بأنواع بيانات مخصصة: 
31 أنشئ مشروع جديد وادخل التصريح عن نوع بيانات مخصص في مقطع التصريحات للفورم: 
Structure CustBalance‏ 
Dim SavingsBalance As Decimal‏ 
Dim CheckingBalance As Decimal‏ 
End Structure‏ 
2- زود بالوظيفة التي تعود بقيمة من نوع مخصص.في جسم الوظيفة,عليك ان تعلن عن متغير من النوع المعاد بواسطة الوظيفة وتسند القيم المناسبة لحقولها.الوظيفة التالية تسند قيم 
عشوائية الى حقول"تفحص الرصيد ع٥"‏ 2/ا982١‏ !)م۸ " و"الرصيد المخزنعء"هاة8ءوم S4۷‏ " ومن تم تعمل على إسناد المتغير الى اسم الوظيفة كما هو 
مبین©(ضع هذه الوظيفة خارج أي إجراء) 
Function GetCustBalance(ByVal ID As Long) As CustBalance‏ 
Dim tBalance As CustBalance‏ 
tBalance.CheckingBalance = CDec(1000 + 4000 * rnd())‏ 
tBalance.SavingsBalance = CDec(1000 + 15000 * rnd())‏ 
Return (tBalance)‏ 
End Function‏ 
3- ضع اداة زر على الفورم والذي منه ستعمل على استدعاء الوظيفة. صرح عن متغير من نفس النوع واسند له القيمة المعادة بواسطة الوظيفة فة,المثال التالي يطبع المدخرات الرصيد 
الجاري في النافذة المخرجات المباشرة: 
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2# Button1 


O Public Class Forml 

REEUSEUFE CUSBEEBRLSBSEE 
Dim SavingsBalance As Decimal 
Dim LheEZKingBalanrte As DeETCTIimal 

EHA SEFUCEUTFE 

Private Sub Buttonl ClIick(EByYYal sender As System. Thject, ByVal e As System. Evens 
Dim balance As CustBalance 
balance = GETLUSTBalance [ 1} 
Debug. UFiteLine [balance .TChecrkEingBalance ] E معالجچ حدت خ خط‎ 
Debug. UFiteLine (balance. SaTingsBalance)] 

Ena Sub 

Function GELLUSTEBalance [ByFYal ID A3 Long] A3 TCustBalance 
DPim tEalante As CZCustBalance 
tBalance.CheckingBalance = CDec [1000 + 4000 * rndl) | الوظ غة التى کتبناها|‎ | 
tLEalanzce.SavingHSsEalanrte = CDerc[1DUOD + 1S500U0D * rnd] j] - - 
Return [TEalance;] 


End Function‏ ج 
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نافخة الآخر اج المياشر 
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Ready 


انشا مشروع جديد وسمه الأنواع وضع عليه الادوات المبينة في الشكل(6 اداة عنوان و6صندوق نص وزرين)وسمهم كما هو مبين 
El Form E ENES‏ 


| | الشركة 
أ | التاريخ 
| وات 
الصذيزقة 


ا | ا ا 


الرضيد 


الللاحةق السابقف 


Private Customers(8) As Customer 
Private cust As Custome 
Private currentlndex As Integer 


Sub ShowCustomer(ByVal idx As Integer EEE ET 


Dim aCustomer As Customer 
aCustomer = GetCustomer(idx) 
txtcompany.Text = aCustomer.Compan 


إسناد قيمة الشركة الى خاصيةالنص لصندوق نص الشركة لإ 
اسناد قيمة تاريخ الايداع الى نص صندوق نص التاريخ txtsince.Text = aCustomer.CustomerSince.ToShortDateString‏ 
txtadd. Text = aCustomer.Address DEERE EEE EET‏ 


txtcity. Text = aCustomer. City 
txtcountry. Text = aCustomer.Countı 
txtbalance.Text = aCustomer.Balance. ToString("#,###.00" 
End Sub 


Ll 


Private Sub btnnext_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnnext.Click 
If currentlndex = CountCustomers() - 1 Then currentlndex = O0 
Dim aCustomer As Customer 
aCustomer = GetCustomer(currentlndex) 
ShowCustomer(currentlndex) 
currentlndex = currentlndex + 1 
End Sub 


في كل مرة تضغط فيها على زر(اللاحق)فان حقل السجل التالي يتم عرضه في أدوات صناديق النصوص الموافقة على الفورم,وعندما يتم استنفاذ جميع الصفوف يلتف البرنامج عائدا الى 
الصف(السجل الأول).يتألف المشروع من نموذج واحد ويستخدم نوع بيانات مخصص يتم تنفيذه مع التركيب المكتوب في مقطع التصاريح العامة للفورم,وهذا التركيب يجب ان يظهر في 
كود الفورم وخارج أي إجراء. 

المصفوفة ء/5108 تحفظ البيانات ل9 زبائن والمتغيراوراء تم استخدامه كمتغير مؤقت لتخزين بيانات الزبون الحالي,و المتغیر ٥1۲۲8۸۲/۸۵ ٥×‏ هو فهرس العنصر الحالي 
للمصفوفة ,.حقول المصفوفة مع بيانات الزبون والمتغي ر »هل0 |۸۲ ٥1/۲8‏ تم إسنادها بشكل أولي الى القيمة0 . 

معالج حدث ضغط الزر لزر التالي يستدعي الوظيغة() 0٠0و۳٥6‏ مع قيمة الفهرس(الذي هو ترتيب الزبون الحالي) لاستخلاص بيانات الزبون التالي,وعرض حقول الزبون على 
أدوات صندوق النص من على الفورم بالإجراء الفرعي ()۲ 50۳6© 8۸0W۷.ومن‏ ثم فانه يزيد قيمة المتغير ×۸8 curren‏ ليشير الى فهرس الزبون الحالي. 


بالاضافة الى العودة بأنواع البيانات المخصصة , تستطيع وظائف الفيجوال بيسك2008 ايضا ان تعود بمصفوفات, وهذه إمكانية هامة تسمح لك بكتابة الوظائف ليس فقط التي تعود بقيم 
متعددة ولكن ايضا بعدد غير معروف من القيم.سنكتب في هذا المقطع وظيفة الإحصاء()5ء|اءاهS‏ وهي مشابهة لوظيفة الإحصاء الحسابي()5٥|اءاع†SمtهاuءامC‏ التي رايتها سابقا 
في هذا الفصل,الوظيفة "احصاء"()5٥اءزاه)5‏ تعود بالتعداد في مصفوفة ما,وأكثر من ذلك فهي تعود ليس فقط بالمتوسط والانحراف المعياري ولكن ايضا بالقيم الصغرى والعظمى في 
مجموعة البيانات ,يوجد طريقة واحدة للتصريح عن وظيفة تحسب كل الإحصاءات وهي التالية: 
Function Statistics(ByRef DataArray() As Double) As Double()‏ 
هذه الوظيفة تقبل مصفوفة مع قيم نوع البيانات وتعود بمصفوفة من النوع المزدوج.لتنفيذ وظيفة تعود بمصفوفة عليك ان تعمل التالي: 
1- تحديد النوع للقيمة المعادة من المصفوفة و إضافة زوج من الأقواس بعد اسم النوع. لا تحدد طول المصفوفة التي يجب ان ترجع بها هنا,سيتم التصريح عن المصفوفة بشكل 
شكلي(رسمي) في الوظيفة. 
2- في كود الوظيفة,صرح عن مصفوفة من نفس النوع وحدد طولها.فإذا كانت الوظيفة ستعود بأربع قيم ,استخدم التصريح التالي: bleؤDoub Dim Results(3) AS‏ 
المصفوفة "885[5[ النتائج" والتي ستستخدم لتخزين النتائج يجب ان تكون من نفس نوع الذي في الوظيفة ولکن اسمها يمکن ان يکون أي شيء. 
3- لإرجاع كااuں‏ وم Rالمصفوفة‏ ,ببساطة استخدمها كمعامل نسبي لعبارة الإرجs):zlڼResSuUl( Return‏ 
4- في الإجراء المستدعي ,عليك ان تعلن عن مصفوفة من نفس النوع بدون أبعاد: 
Dim Statistics() As Double‏ 
5- أخيرا عليك ان تستدعي الوظيفة وتسند قيمتها المعادة الى هذه المصفوفة: 
Stats() = = Statistics(DataSet())‏ 
هنا 56اه هي مصفوفة مع القيم التي إحصاءاتها الأساسية سوف يتم حسابها بواسطة الوظيفة()5٥‏ ءاه .ومن ثم فان كودك يستطيع استخلاص كل عنصر للمصفوفة بقيمة 
الفهرس وكالعادة. 


توجد حالات يكون فيها من الواجب ان تعمل نفس الوظيفة على نوع بيانات مختلف او عدد مختلف من المعاملات النسبية, في الماضي كان عليك ان تكتب وظيفة مختلفة,بأسماء مختلفة 
ومعاملات نسبية مختلفة,لتلاءم(تكيف مأ2 0٥0٠"‏ ) نفس المتطلبات. قدم إطار FrameworkJaall‏ مبدأً اعادة تعريف الوظيفة,والذي يعني انه بإمكانك ان تحوز على تنفيذات 
متعددة لنفس الوظيفة,وكل منها مع مجموعة مختلفة من المعاملات النسبية ومن الممكن ايضا قيم معادة مختلفة.ولكن جميع الوظائف المعاد تعريفها تتشارك بنفس الاسم ,لأقدم لك هذا المبداً 
باستكشاف واحدة من العديد من الوظائف المعاد قيادتها والتي تأتي مع إطار عمل نت N۲ ۴a٥ w0)‏ ..الطريقة التالية لفئة System.Random‏ تعود بقيمة صحيحة من- 
88 الى2,147,483,647(هذا هو مجال القيم التي يمكن تمثيلها بواسطة نوع البيانات #۲ وه" |الصحيحة)سوف نكون ايضا قادرين على توليد أعداد عشوائية في مجال 
محدد لقيم صحيحة.لمناقشة( اھا" 6)كش مات(في لعبة الشطرنج)نحتاج الى قيم عشوائية في المجال من(1 الى 6 )بينما من اجل لعبة النرد(6" هو ع)امااه۲ القمار)نحتاج الى قيمة 
عشوائية في المجال من 0 الى 36 تستطيع ان تحدد الحد الأعلى للرقم العشوائي بواسطة معامل نسبي من النوع الصحيح ويكون اختياري.العبارة التالية سوف تعود بقيمة صحيحة عشوائية 
في المجال من 0 الى 99 randomlInt = rnd.Nex(100(:‏ 
تستطيع ايضا ان تحدد كلا الحدين الأعلى والأدنى لمجال العدد العشوائي,العبارة التالية ستعود بقيمة صحيحة عشوائية في المجال من 1000 الى 1999 
randomlInt = Rnd.Next(1000, 2000)‏ 

نفس الطريقة تسلك سلوك مختلف بالاعتماد على المعاملات النسبية التي نزودها نحن,فسلوك الطريقة يعتمد على إما نوع المعاملات النسبية او عددها او كلاهما,ولا يوجد وظيفة وحيدة تبدل 
سلوكها بالاعتماد على المعاملات النسبية فيوجد العديد من التنفيذات المختلفة لنفس الوظيفة كلما وجد معاملات نسبية مصاحبة لها.جميع هذه الوظائف تتشارك في نفس الاسم لذا فانها تظهر 
للمستخدم كوظيفة وحيدة ولكن متعددة الواجهات, هذه الوظيفة تم اعادة تعريفها,وسترى كيف يتم تنفيذها في المقطع التالي.فإذا ما كانت المساعدة الفورية تعمل (لم تقم بتعطيلها)فحالما تكتب 
قوس مفتوح بعد اسم الوظيفة او اسم الطريفة,سترى صندوق اصفر مع الشكل العام للوظيفة او الطريفة.وستعرف ان تلك الوظيفة او الطريقة تم اعادة تعريفها عندما يحتوي هذا الصندرق 
على عذذ و سهمين ,كل عدد يوافق نمط مختلف لاعادة التعريف,وتستطيع التحرك الى النمط المعاد تعريفة التالي او السابق وذلك بالضغط على السهمين الصغيرين او بالضغط على مفاتيح 
الأسهم من لوحة المفاتيح . 
لنعود الى الوظيفة () 11 التي تعاملنا معها سابقا في هذا الفصل,التنفيذ الأولي للوظيفة ()"۷ كمايلي: 

Function Min(ByVal a As Double, ByVal b As Double) As Double 

Min = Ilf(a < b, a, b) 
End Function 

بقبولها قيم مزدوجة كمعاملات نسبية هذه الوظيفة تستطيع ان تعامل جميع أنواع القيم العددية,ينجز الفيجوال بيسك 2008 التحويلات الواسعة بشكل آلي(يستطيع ان يحول الأعداد الصحيحة 
والعشرية الى النوع المزدوج) 


لذا فان هذه السمة تجعل الوظيفة تعمل مع جميع البيانات العددية,ولكن ماذا بشان النصوص؟فإذا حاولت ان تستدعي الوظيفة مع نصين كمعاملان نسبيان,ستحصل على استثناء(خطأ):الوظيفة 
M1۸)(‏ لا تستطيع معالجة النصوص 
لكتابة وظيفة تستطيع ان تعالج القيم النصية والعددية,في الحقيقة عليك كتابة وظيفتين ()11۸ .جميع الوظائف ()" M1‏ يجب ان تسبق بالكلمة المحجوزة ئل هها 0۷6 ,الجمل التالية تبين 
الاختلاف في تنفيذ نفس الوظيفة: 
Overloads Function Min(ByVal a As String, ByVal b As String) As String‏ 
Min = Convert.ToString(lIf(a < b, a, b))‏ 
End Function‏ 
نحتاج الى نموذج اعادة تعريف ثالث لنفس الوظيفة لمقارنة التاريخ. اذا استد عیت الوظيفة ()1ومررت کمعاملات نسبية تاریخین,کما في العبارة التالية,فان الوظيفة ستقارن هذين 
التاريخين كنصوص وتعود بالتاريخ الأول غير صحيح: ((#3/4/2008# ,#1/1/2009#) .Wrii 6L1) Mi‏ 89 حتى هذه العبارة غير صحيحةعندما يكون خيار التدقيق فعال 
ict option is on‏ tولذلك‏ فمن الواضح انك تحتاج الى نموذج اعادة تعريف أخر للوظيفة تقبل تاريخين كمعاملين نسبيين لها كما مبين هنا: 
Overloads Function Min(ByVal a As Date, ByVal b As Date) As Date‏ 
Min = Ilf(a < b, a, b)‏ 
End Function‏ 
اذا استدعيت الوظيفة مع التاريخين#1/1/2009# #3/4/2008# ستعود الوظيفة بالتاريخ الثاني,والذي هو بالترتيب الزمني /|اةءiأوهامم‏ ه۲٠‏ اصغر من الأول ,.لنذهب الى وظيفة 
أكثر تعقيدا,والتي تجعلنا نستخدم بعض المواضيع التي تم مناقشتها لاحقا في الكتاب,الوظيفة"عدد الملفات()5٠|İ C00 "٤۴‏ "تحصي عدد الملفات في المجلد الذي يقابل معیار محدد ,و هذا 
المعيار يمكن ان يكون حجم الملفات,او نوعها,او تاريخ إنشاءها,.تستطيع ان تأتي بأي جمع لهذه المعايير,ولكن التالي هو الجمع ال الأكثر فائدة(هذه الوظائف التي سأستخدمها,ولگن تستطيع ان 
تنشئ جموع أكثر او تقدم معايير جديدة خاصة بك). أسماء المعاملات النسبية تصف نفسهاءلذلك لا احتاج لشرح ما يفعل كل نموذج للوظيفة() ||۸۴ ٣0u‏ 
CountFiles(ByVal minSize As Integer, ByVal maxSize As Integer) As Integer‏ 
CountFiles(ByVal fromDate As Date, ByVal toDate As Date) As Integer‏ 
CountFiles(ByVal type As String) As Integer‏ 
CountFiles(ByVal minSize As Integer, ByVal maxSize As Integer,ByVal type As String) As Integer‏ 
CountFiles(ByVal fromDate As Date, ByVal toDate As Date,ByVal type As String) AsInteger‏ 
القائمة التالية تبين تنفيذ نماذج اعادة التعريف هذه للوظيغة()5ع|İ ©0۸٤۴‏ (سنعمل فيما يلي مشروع اعادة التعريف)ولكن بما أننا لم نناقش العمليات على الملفات بعد,فجميع الكود في جسم 
الوظيفة سيكون جديد عليك لذا لا تقلق بشان الاكواد الجديدة ستناقش في دراسة العمليات على الملفات,من اجل المنفعة العامة للقارئين الذين لا يعرفون عمليات الملفات, فقد ضمنت عبارات 
تطبع في نافذة المخرجات نوع الملف الذي تم إحصاءه بواسطة كل وظيفة.ولكن إليك المشروع كاملا: 


أنشئ مشروع جديد وضع على الفورم زر وصندوق نص اعد تسمية الفورم من خاصية النص لها ٤×ه)‏ الى "اعادة التعريف للوظائف" وسم الزر ايضا من خاصية النص الزر"احصي 
الملفات" من نافذة الخصائص كما هو مبين في الشكل المرافق. 


Microsoft sua studio E EINES‏ - اعادة تعریف الوظاتف ي 
Fil Edit View Project Build Gebu Ûata Tools Test Window Help‏ 
ml ® @ š#* A‏ کے e‏ + ر I ê ê Ë- A F|# 3E BA‏ 
كرا * اناقذة الخصائص :ِم × ٭_ | “Form1.wb [Design]* | Start Page‏ 
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Ready 
والان اضغط ضغط مزدوج على الزر وادخل الكود التالي كما هو مبين في القائمة التالية:‎ 
Public Class Form1 


Overloads Function CountFiles(ByVal minSize As Integer, _ 
ByVal maxSize As Integer) As Integer 
Debug.WriteLine("You've requested the files between " & minSize & _ 
" and " & maxSize & " bytes") 
Dim files() As String 
files = System.lO.Directory.GetFiles(folderName) 
Dim i, file Count As Integer 
For i = 0 To files.GetUpperBound(0) 
Dim FI As New System.lIO.Filelnfo(files(i)) 
If Fl.Length >= minSize And FI.Length <= maxSize Then 
file Count = file Count + 1 
End If 
Next 
Return (file Count) 


End Function 


Overloads Function CountFiles(ByVal type As String) As Integer 
Debug.WriteLine("You’ve requested the " & type & " files") 
Dim files() As String 
files = System.lIO.Directory.GetFiles(folderName) 

Dim i, fileCount As Integer 
For i = 0 To files.GetUpperBound(0) 
Dim FI As New System.lO.Filelnfo(files(i)) 
If FI.Extension = type Then 
file Count = file Count + 1 
End If 
Next 
Return (file Count) 
End Function 


Overloads Function CountFiles(ByVal fromDate As Date, 
ByVal toDate As Date, ByVal type As String) As Integer 
Debug.WriteLine("You've requested the " & type & 
" files created from " & fromDate & " to " & toDate) 
Dim files() As String 
files = CIO DEERESE EERE 
Dim i, file Count As Integer 
For i = 0 To files.GetUpperBound(0) 
Dim FI As New System.IO.Filelnfo(files(i)) 
If Fl.CreationTime.Date >= fromDate And _ 


FI.CreationTime.Date <= toDate And FI.Extension = type Then 


file Count = file Count + 1 
End If 
Next 
Return (fileCount) 
End Function 


End Class 


اذا كنت لا تعرف الكائنات " Yإ٣اما‏ ه٣[‏ الدليل:مساحة محدد على القرص والملف |۴ "ركز على العبارات التي تطبع في نافذة الإخراج المباشر س0 لاس مأةا١مص‏ "| وتجاهل 
العبارات التي تحسب بشكل عملي الملفات,تستطيع العودة لهذا المثال وتفهم عباراته فيما بعد عندما ندرس "التمكن من الوصول الى الملفات والمجلدات" كما ترى جميع الوظائف المعاد 
قيادتها لها نفس الاسم والتركيب وتختلف فقط في كيفية اختيار ها للملفات لتعمل على إحصاءها. ,نفذ المشروع وراقب نافذة الإخراج المباشر التي ستطبع العبارات التالية كما في الشكل 


قات تیا می اریت من کا ی کت 


الموضح هنا: 
E EINES‏ 
e |g -‏ لق کک 


اعادذة تعريضف الوظاثضف ا 
A) MY Projeck‏ 
E] Form1.wb‏ 


| Solution Explorer Data Sources | 
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Button1_Click Attributes 


You’ve requested the files between 1000 and 100000 bytes 
You've requested the count of files created from 1/1/2001 to 


You’ve requested the .DLL files 


You've requested the .EXE files between 1000 and 1000000 bytes 
You’ve requested the .EXE files created from 1/1/2004 to 12/31/20 


کي 
a EES‏ اعاحة ترف #8 File Edt view Pro‏ 
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Tou’ we rerMiested the _ EXE files between 1000 anda 1000000 bytes 
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و SS F1 bk‏ زک E‏ 
3 حط ناقخة المخر حات المياشرة بعد ان تضغط ع الزر 


Efe ending checkins] 


Ready Ln 32 cal 1 ch1 INS 


يستدعي الزر النماذج المعاد قيادته المتنوعة للوظيفة واحدة بعد الأخرى ويطبع النتائج ع اداة صندوق النص على الفورم,اعادة تعريف الوظائف يتم استخدمها بكثرة في كامل اللغة,ويوجد 
نسبيا القليل من الوظائف(او الطرق)لم يتم اعادة تعريفها,في كل مرة تدخل اسم الوظيفة متبوعا بقوس مفتوح فان قائمة بمعاملاته تظهر في قائمة منسدلة تحوي المعاملات النسبية 
للوظيفة.فإذا كانت هذه الوظيفة قد تم اعادة تعريفها سترى عدد في مقدمة قائمة المعاملات النسبية هذا العدد هو ترتيب نماذج اعادة التعريف للوظيفة ويتم إتباعه بالمعاملات النسبية للنموذج 
المحدد من الوظيفة.الشكل التالي يريك جميع النماذج المعاد تعريفها للوظيفة () 5ع |۸۴ :€0u‏ 

cCountFiles I] 
Hn FI 
LountFiles | 


Zof 5E CountFiles (fromDBate As Date, toDate ûs Date} As Integer | 


باي 
e Accessiblebescription‏ احظ الأ رقاعم 
OE 2‏ اظ 


LountFiles | 


-IE3oF 5g CountFiles (type As String) ûs Integer 


E ni 6 1a35 2 geese‏ چ 
LOUNEF 11E 3 |‏ 


4o 5# CountFiles [minSize As Integer, maxSize As Integer, Lype As String) As Integer 


ard FT I SS aaa grroeocoaroraoneeeerreererevereceureceeerveveereterereverrrecerirenivs 1 


GRREELLES. 


Sof SE LountFiles ffromBate As Date, toDate As Date, type As String} A5 Integer 


الفا 


أصبحت تعرف الآن كيف تصمم واجهة المستخدم الرسومية (11ا6) user interfaces‏ اraphicaو,‏ وکیف تستخدم 
عبارات الفيجوال بيسك لبرمجة الأحداث لأدوات متنوعة.وتعلمت ايضا كيف تكتب الوظائف والإجراءات الجزئية 
وكيف تستدعي الوظائف المعدة داخليا (الجاهزة) في الفيجوال بيسك,. في هذا الفصل ستعمل على تصميم 
العديد من تطبيقات ويندوزرفي هذه المرة ستكون تطبيقات عملية مع واجهات أكثر فعالية,وكود يعمل شيء ما 
بعملية أكثر مما قد رايته سابقا,ففي هذا الفصل ستتعلم مايلي: 

ا- تصميم واجهة المستخدم الرسومية 

ج- كتابة تطبيقات قوية أكاطاه مع معالج الخطأً 

تصميم تطبيقات ویندوز یمر بمرحلتین متمیزتین :تصميم واجهة التطبيق وكتابة الكود للتطبيق. یتم انجاز تصمیيم 
الواجهة المرئية للتطبيق بواسطة أدوات مرئية ويتألف هذا التصميم من إنشاء الفورم مع العناصر المتعلقة بها 
relevant‏ وهذه العناصر هي بلوکات بناء تطبیق ويندوز( حجر الأساس)لبناء تطبیقات ویندوز وتسمی الأدوات(او 
المتحکمات‌controls‏ ( 

الادوات الممكنة التي تظهر في صندوق الادوات وهي نفسها العناصر التي تستخدم بواسطة جمیع تطبیقات 
ويندوز,بالإضافة الى كونها وافرة بشكل مرئي, تتضمن الادوات الكثير من الوظيفية(الفعالية)ء فأداة صندوق 
النص >×16×80تستطيع ان تعالج النصوص من خلال إمكاناتها الخاصة ءبدون أي جهد برمجي من جهتك, وأداة 
الصندوق المركب >×۳5080 C0‏ تنسدل بقائثمة بنودها عندما ينقر المستخدمين زر السهم وتعرض البند المختار 
في صندوق تحريرها الخاص. بشكل عام التخصص الوظيفي للأدوات معد (مجهز) للأدوات بشکل 

تصميمي ,لذا فان جميع التطبيقات تحافظ على مظهر تابت. 

تملي كءعأهاءاك الواجهة كيفية تفاعل المستخدمون مع تطبيقك .لتطلب من المستخدم ان يدخل نص او بيانات 
عددية ,استخدم اداة صندوق النص×18×80 . عندما يصدق لان تحدد واحد او أكثر من عدة خيارات فلديك 
العديد من الاختيارات,فتستطيع ان تستخدم اداة الصندوق المركب >×080ط١۳‏ 0ع والتي منها يستطيع 
المستخدمون ان يختاروا خيار ما, او تستخدم عدة أدوات ن لصندوق الاختيار ٥ ٤۸80×‏ على الفورم بحيث 
يستطيع المستخدمون ان يضعوا علامة صح(يختار) او يزيلوا هذه العلامة(لا يختار) ,اذا أردت ان تعرض عدد قليل 
من الخيارات المقتصرة على التبادل المشترك(شيء او عكسه) ضع عدد من ادات زر التحور 
JeRadioButtonلa‏ الفورم ففي كل مرة يختار المستخدمون خيار ما فان الاختيار السابق يتم إزالته.لتبدأً الأفعال 
ضع واحد او أكثر من اداة الزر ١0اا8على‏ الفورم. 

Building a Loan Calcula0۲ بناء برنامج حاسب القروض‎ 


تزودك الفيجوال بيسك بالتابع(الوظيفة) التي تقوم بإتمام العديد من أنواع الحسابات المالية,وتحتاج فقط الى سطر واحد 
من الكود لحساب المدفوع شهريا من خلال كمية القرض,ومدة القرض ونسبة الفائدة,حيث ان تصميم واجهة المستخدم 
ا عمل أكثر من كتابة الكود بغض النظر عن اللغة المستخدمة في كتابة الكود,لذا عليك إجراء العمليات التالية لبرمحة 
التطبيق: 
e E 2‏ ا ا انالا i‏ السابقة. 
3- كتابة الكود الفعلي لمعالجة الأحداث التي تريد معالجتها خلف الواجهة. 


الع الى الكطةة الاولى الاخطوط ال تة 6ا ت فت تالكر كن قار على فحدد كمية القرفن وة 
الفائدة وفترة القرض بالشهورءلذلك عليك ان تزود التطبيق بثلاث صناديق نصوص يستطيع ان يدخل المستخدم فيها القيم 
السابقة الذكر ءبالإضافة الى معامل أخر يؤثر على المدفوع شهريا وهو فيم اذا كان المدفوع سيتم مسبقا في أول كل 
شهر أم في أخره,لذلك عليك ان تزود المستخدم بطريقة يحدد من خلالها هل سيتم الدفع مبكرا(في اليوم الأول من 
الشهن او متأخر(في أخر يوم من الشهن,فالنوع الأكثر مناسبة للتحكم في عملية الإدخال هذه هي (نعم او لا)آي (أول 
الشهر اذا كانت نعم أواخر الشهر اذا كانت لا)(او صح /خطأ) لذا نحن بحاجة الى اداة صندوق اختيار×80)٤K۸۵‏ ,هذه 
الأداة هي عقدة مفصلية( أي يتم تبديلها من خلال النقر لوضع علامة الصح داخل الصندوق و النقر مرة أخرى لإزالة علامة 
الصح من داخل صندوق الاختيار) فلن يقوم المستخدم بإدخال أية بيانات في هذه الأداة (وهذا يعني انك لا تريد ان يبادر 
المستخذم الى ادخال أف خطا في هذة الأداة) وهذة ابسط طريقة لخحدية القيم لحالة لا تفيل إلا واحد من الاحتمالين. 
يريك الشكل التالي واجهة المستخدم التي تطابق مواصفات تطبيقنا,وهذه هي الفورم الرئيسية لمشروع حاسب 
القروض 


ااه جساب المدقوع الشهري لقرض ما ااا عا 


تصية القرض 20000 


الفاثدة الس وة 14.5 


الفترةابالش يم 4 
]| الدفح في اول يوم من الشهر 


الصتوجب دقجه تل شهر 


يعمل المستخدم على إدخال جميع المعلومات على الفورم ومن تم يضغط على زر المدفوع شهريا لحساب المدفوع 
شهريا.وبالتالي سيعمل البرنامج على حساب المدفوع الشهري ويعرضه في اسفل اداة من ادوات صندوق النص ,يحدث 
جميع العمل في الإجراء الجزئثي التابع لحدث النقر على الزر. 
لحساب المدفوع الشهري نعمل على استدعاء الوظيفة الجاهزة(() )۴۳"٤‏ والتي لها الشكل العام التالي: 

Monthly Payment = Pmt(InterestRate, Periods, Amount, FutureValue, Due) 
عملنا على مناقشة هذه الوظيفة في الفصول السابقة ولكن سأعمل على شرح بعض الضروريات هنا فإذا كانت نسبة‎ 
الفائدة السنوية متلا 5 % ستكون الفائدة الشهرية 12/0.145 ,أما فترة القرض فيعبر عنها المعامل النسبي‎ 
كمية القرض,عuا۲۵۷a ا۴ :قيمة القرض عند نهاية الفترة والتي ستكون في حالة‎ A١01۸ بالشهر,أما الكمية‎ P6 
القرض صفر,ينما ستكون موجبة قي حالة الاستتمارinvestment . ما المعامل الأخير 018يحدد متى سيتم الدفع.قيمة‎ 
,وھذان الثابتان‎ DueDate.End0f Period, DueDate. Beg OfPeriOd هذا المعامل عuا0يمكن ان تكون واحدة من الثوابت‎ 
هما جاهزان من اللغة(تم إعدادهما بشكل مسبق ) وحتى انك تستطيع ان تستخدمهما بدون ان تعرف قيمة كل منهما‎ 
بالضبط.‎ 


بعد ان عرفت کیف تحسب ,المتوجب دفعه کل شھر,تستطیع تصميم واجهة المستخدم,ولعمل هذا ,ابداً مشروع جدید 
وسمه "حاسب القروض" وأعد تسمية الفورم الى "حساب المدفوع الشهري لقرض ما" , حدد الخط وحجمه الذي تراه 
مناسبا للفورم لان هذا الخط سيؤثر على باقي الادوات التي ستقوم بوضعها على الور اجعل خاصية 
اليمين الى اليسار(نعم) واجعل ايضا أا۷ ۸9۸١016۴۲13‏ (صح) وذلك من اجل ولیصح تخطیط 
النموذج لديك من 
سنستخدم في الكتاب نوع الخط فيردانا 10 نقاطا٣٥؟ Verdana‏ ointم-10‏ لتغير الخط اختر الفورم(بالنقر على آي مکان ع 
الفورم) واذهب الى نافذة الخصائص واختر الخاصية١٠۴‏ لفتح صندوق حوار الخط واختر الخط الذي تريده .أنصحك 
باستخدام أما(سيغو (Verdana gl Seago‏ لأنهما الخطان المخصصان للعرض على الشاشات.لتصميم الواجهة المبينة 
في الشكل السابق اتبع الخطوات التالية: 

1- ضع اربع ادوات كاعطها من اداة العنوان على الفورم وذلك لكتابة العناوين فيها (يتم ذلك في خاصية ا×۴٤۲النص‏ 

لکل منهم) 


مسن 


لسك اة لقيو الافمة الا فاضي لفات العاوي الساقة على القورم ما تاكه كو العوان قط مى خلال خاصة 
النض ,فلن كمل على برمخة هذة الأدوات أندا فقي مخرة عقاو فط 
2- ضع اداة صندوق نص مقابل كل اداة عنوان وضع خاصية الاسم ۸3۳8 وخاصية النص×٠٣‏ الى القيم التالية 
.حيث ان خاصية الاسم ۸3۳8 ستستخدم في الكؤد لذا اختر اسم هر هتها آها خاضة ال فع الاركام 
الموضخة في الشكل السابق الىك ال کال 


3- أداة صندوق النص الأخيرة تركناها فارغة لأننا سنعمل على إظهار (المتوحب دفعه في كل شهر) في هذه الأداة, فليس من 
المفترض ان يدخل المستخدم في هذه الأداة أي بيانات, لذا عليك ان تجعلها للقراءة فقط من خلال خاصية ۸٥3007١۷‏ ضع 
هذه الخاصية الى صح(۵٠١۲)‏ لمنع المستخدم من الكتابة فيها.تستطيع التحكم في قيمة هذه الخاصية من خلال 
الكود,ولكن المستخدم لن يستطيع الكتابة فيها(يمكننا بالمقابل ان نستخدم اداة عنوان بدلا عن اداة صندوق النص) 


4- ضع اداة صندوق اختيار80×1)ءع۸) على الفورم ومن خاصية النص ۲٠×٤‏ وكما هو موضح في الشكل السابق ضع النص " الدفع 
في أول يوم من الشهر",ويشكل افتراضي سيكون العنوان لها .٤1٠٤۸80×1‏ وفي نافذة الخصائص ايضا ضع خاصية الاسم ١2٣"۴"‏ " 
chkPayEarly" Jll‏ " 

5- ضع اداة زر على الفورم وغير خاصية ٠٠×٤‏ النص كما هو موضح في الشكل السابق الى"حساب المدفوع الشهري" وغير 
خlصية‏ IJINameسmم bttnsShowPayment" JJ|‏ " 

6- أخيرا ضع زر اخر على الفورم وضع خاصية النص له الى "خروج" وخاصية الاسم الى "۴×|۲ ٣اط‏ " كما هو موضح في الشكل 
السابق. 


الآن وبعد ان عملت واجهة المستخدم , شغل التطبيق وشاهد سلوكه ,ادخل عدد من القيم في صناديق النصوص واضغط على زر 
حساب المدفوع الشهري ,ماذا تلاحظ ؟ تجد ان البرنامج لا يقوم بحساب أي شيء ,لذا أوقف تشغيل البرنامج واضغط مزدوج على زر 
"حساب المدفوع اأ "وادخل فيه الكود التالي: 
Dim Payment As Double‏ 
Dim LoanIRate As Double‏ 
Dim LoanDuration As Integer‏ 
Dim LoanAmount As Integer‏ 
LoanAmount = Convert. ToInt32(txtAmount. Text)‏ 
LoanIRate = 0.01 * Convert. ToDecimal(txtRate. Text) / 12‏ 
LoanDuration = Convert. ToInt32(txtDuration. Text)‏ 
Dim payEarly As DueDate‏ 
If chkPayEarly.Checked Then‏ 
payEarly = DueDate.BegOfPeriod‏ 
Else‏ 
payEarly = DueDate.EndOfPeriod‏ 
End If‏ 
Payment = Pmt(LoanIRate, LoanDuration, -LoanAmount, 0, payEarly)‏ 


txtPayment. Text = Payment. ToString("#.00") 
نافذة محرر الكود ستبدو موافقة للشكل التالي:‎ 


‘Formi.wb*| Eorm1 wb [Design] Start Page | 


f ShowPayment ۳ # Click 
[ FPubþblic Class Forml 


- Frivate Sub ShovPFayment ClickIEyYal sender As System.Object, ByVal e As System.EventArgs) Handles ShovPFayment.Click 
Dim Payment As Double 

Dim LoanlRate As Double 

Dim LoanDuration As Integer 

Dim LoanÃimount As Integer 


LoanAmount = LCONFEFTE. TINIE [EREBO UNTE . TEXTE) 
LoanIRate = Û0,.U01 * Convert. ToDecimal [txtRate. Text} # 13 
LoanDuration = Convert. Tolnt3ê [txtDuration. Text} 
Dim payEarly Ais DueDate 
If chkFayEarly. Checked Then 
payEarly = DueDate . BegOfPer iod 
Else 
payEarly = DueDate.EndOfPer iod 
End If 
Payment = Pmt [LoanlRate, LoanDuration, -Loandimount, ÛU, payEarlr) 
txtPayment. Text = Payment, ToStringi"#,DO"} 
٣ Ehd Sub 
L-End Class 


اذا أردت ان تقسم الأسطر الطويلة يدويا عليك ان تدخل في المكان الذي تريد ان تقسم السطر "خط منخفض" او من 
قائمة "تحرير ال٤‏ " اختار خيارات متقدمة ۸۷3٥٥0"‏ " ومنه اختار "التفاف النص م۷۲2 "۷/0۲١‏ في الكود السابق قمنا 
اولا بالتصريح عن المتغيرات التي سنخزن فيها القيم التي نريد فالمتغي [P3۷6١‏ (يخزن قيمة من النوع المزدوج) وهذا 
المتفير سنخزن فيه "المتوجب دفعه كل شهر" بعد ان يتم حسابه عند الضغط على زر "حساب المدفوع الشهري" وبعد 
حساب المدفوع في كل شهر نعمل على إظهاره في نص صندوق نص "المتوحب دفعه في كل شهر" بعد ان نعمل على 
تحويله الى نص بالتنسيق المبين في السطر الأخير من الكود أي السطر التالي: 

txtPayment. Text = Payment. ToString("#.00") 
,أما التغير الثاني عأ104۸1۸83 فإننا سنخزن فيه نسبة الفائدة الشهرية وذلك كما ترى قمنا باسناد نص صندوق نص‎ 
القانذة السنوية بعد تحويلها الى عدد عشري و عملنا على تحويل الفائدة السنوية الى معدل الفائدة قي كل شهر وذلك‎ 
بتقسيمها على عدد شهور السنة وهي 12 شهر وضربها ب0.01 لتحويلها الى نسبة مئوية.‎ 
ما المتغير١ 163۸01310 فقد عملنا على تخزين مدة القرض بالشهور فيه واسندنا له نص صندوق نص الفترة(شهر) بعد‎ 
ان قمنا بتحوپلها الى النوع عدد صحيح,‎ 
أما المتفير الأخير فهو ١٣ا0 ١68۸۸۳]فقد ادخلناه لتخزين كمية القرض فيهقد قمنا بإاسناد قيمة نص صندوق نص كمية‎ 
القرض الى هذا المتغير بعد ان قمنا بتحویلها الى قيمة عددية صحيحة,وهو من نوع عدد صحيح.‎ 


أما السطر التالي من |Jكود bim payÉarly A5 DUêDatê‏ فانه يصرح عن متفير من نوع "تابع زمني€اة5 506 " 
ونوع المعامل النسبي هذا يحدد فيما ذا سيتم الدفع مبكرا في أول الشهر أم في نهاية الشهر حيث ان المعامل 
النسبي الأخير للوظيفة )۶۳ هو متغفير من هذا النوع كما أوضحنا سابقا,وحيث ان ع51603 هو عداد يحوي مكونين 
وھlo BegOfPeriod‏ و EndOfPeriod(بداية‏ الشهر ونهاية الشهر على الترتيب) 
Dim payEarly As DueDate‏ 
If chkPayEarly.Checked Then‏ 
payEarly = DueDate.BegOfPeriod‏ 
Else‏ 
payEarly = DueDate.EndOfPeriod‏ 
End If‏ 
کما تری بعد ان قمنا بالتصريح عن متغير من النوع 018038 فقد ادخلنا تركيب شرطي , لاختبار صندوق الاختيار فإذا ما 
تم اختياره(وضع علامة الصح داخل صندوقه) سيتم تنفيذ الكود €0 Due Date. eg0°°‏ = yاyEarهم‏ اي ان الدفع سیتم 
مقدما في بداية الشهر, وإلا فان الدفع سيتم متاخر في نهاية الشهر عند اذ سينفذ الكود التالي في حالة عدم وضع 
علامة الصح في صنiدaز‏ |lختlıر payEarly = DueDate. EndOfPeriOd‏ 
الآن نفذ البرنامج واضغط على زر حساب المدفوع الشهري ,غير القيم في صناديق النصوص (ولكن لا تدخل الآن إلا قيم 
رقمية لأننا لم نعالج حتى الآن الخطأً الذي سينتج عن إدخال قيم نصية في صناديق النص ), اضغط على صندوق الاختيار 
لوضع علامة الصح فيه وراقب التغيرات ومن ثم ازل هذه العلامة , تدرب قليلا على البرنامج وراجع كيفية تنفيذ الكود 
وعندما تنتهي ,اغلق البرنامج للعودة الى بيئة التطوير مرة اخرى (لا تغلق البرنامج من خلال زر الخروج فإننا لم نعمل 


Dim futureValue As Double = 0 
Dim payment1 As Double 
ayment1 = Pmt(0.05 / 12, 36, -1000, futureValue, DueDate.EndOfPeriod 


ا ا سم 
payment = Pme [0.05 / 12, 36, =1000, futureVvalue, DueDate , EndOfPericod)‏ 


Replace with a Double for the annual interest rate (e.g. 0.05 for 5%). 


pament = Pmt(0.05 / 12, 36, =1000, furureValue, DueDate.EndOfPeriod) 


Replace with code that returns a Double for the loan amount] 


payment = Pert (0.05 / 12, 36, =1000, furureValue, DieDate. EndofPeriod) 


[Replace with code that returns a Double for thê total number af monthly payê ên | 


لکن کودالمشروع البسیط "خاسب القروض" نوعا ما مختلف واطول مما قذمته هنارخیت انه یمکن للمستخدم ان یدخل 
جم أواع البتانات فى القو م فا ها ادحل نض فا عوك الى جوت خط ,لذا تمك كى المفطع القادم كف فمل 
على الفحقق من الضانات المذكلة من قل الخدم وأضطاة الا خط ومفالحة 


كما ذكرنا سابقا اذا ما عمل المستخدم على إدخال نص ما في صناديق النصوص التي على الفورم متلا 
ادخل المستخدم القيمة النصية التالية "عشرون" فان ذلك سيؤدي الى حصول خطاأً وسينهار البرنامج مباشرة 
عارضا رسالة خطأ, جرب هذا واقرأً رسالة الخطأً ,لذا لمنع المستخدم من إدخال قيم غير مناسبة 
الكود المعدل التالي يعمل على التحقق من بيانات المستخدم في كل صندوق نص لمنع إدخال بيانات غير 
مناسبة ®(الكود يشرح نفسه وليس بحاجة الى أي شرح) 
Dim Payment As Double‏ 
Dim LoanIRate As Double‏ 
Dim LoanDuration As Integer‏ 
Dim LoanAmount As Integer‏ 


التحقق من كمية القرض ' 
If IsSNumeric(txtAmount. Text) Then‏ 
LoanAmount = Convert. ToInt32(txtAmount. Text)‏ 
Else‏ 
("ادخل قيمة عددية من فضلك في قيمة القرض الذي حصلت عليه")×80وء× 
Exit Sub‏ 
End If‏ 
التحقق من الفائدة ' 
If IsNumeric(txtRate. Text) Then‏ 
LoanIRate = 0.01 * Convert. ToDouble(txtRate. Text) / 12‏ 
Else‏ 
("قيمة الفائدة غير صحيحة,ادخل قيمة عددية من فضلك")×80وء× 
Exit Sub‏ 
End If‏ 
التحقق من فتر القرض' 
If IsNumeric(txtDuration. Text) Then‏ 
LoanDuration = Convert. ToInt32(txtDuration. Text)‏ 
Else‏ 
("من فضلك ادخل مدة القرض المناسبة ,على ان تكون قيمة عددية")×980وs×‏ 
Exit Sub‏ 
End If‏ 
اذا كانت جميع البيانات صحيحة , باشر عملية الحساب ' 
Dim payEarly As DueDate‏ 
If chkPayEarly.Checked Then‏ 
payEarly = DueDate.BegOfPeriod‏ 
Else‏ 
payEarly = DueDate.EndOfPeriod‏ 
End If‏ 
Payment = Pmt(LoanIRate, LoanDuration, -LoanAmount, 0, payEarly)‏ 
txtPayment. Text = Payment. ToString("#.00")‏ 
الوظيفة 15١۷۳8۲٤‏ هي وظيفة أخرى جاهزة (معدة للاستخدام من قبل اللغة) وتقبل متغير وتعود بصح اذا كان المتغير 
عددي وتعود بخطاً قي الحالات الأخرى. 
والان جرب التطبيق حتى تفهم الكود ومن ثم ادخل قيمة هائلة في كمية القرض.وحاول ان تستكشف ما سيحدث 
,سترى ان البرنامج ينهار ثانية ولكن مع رسالة خطا مختلفة عن سابقتها,كما هو مبين في الشكل التالي تظهر رسالة 
خطاأً معنونة بالعنوان التالي: "استتناء تجاوز الحد لم يتم معالجته" ويظهر مع الرسالة ايضا نصائح واقتراحات لمعالجة 
الخطاً . يشتكي الفيجوال بيسك من خطاً تجاوز الحد تحت عنوان رسالة الخطاً بالسطر التالئي:" 00 value was either‏ " 
or t00 sma for an Int32‏ eوarا‏ أي ان" القيمة أم ان تكون كبيرة جدا او صغيرة جدا من اجل المتغير من النوع الصحيح" 
وکما ترى فان البرنامج يتوقف عند السطر الذي سبب الخطاً ویعلمه باللون الاصفر, 


افق هن كخمدة امرض" 
Ei SSN Text] Then‏ 


Else 
من فشاك ن قيمة القرض الذي حسلت عليه" ) دعو‎ 
Exit Sub 

End If 

التجقق هن الفائدة ' 

IF IsNumeric [txtRate. Text] Then 
LoanlRate = J.U1 * LonTert. ToDoub le (CxXtRATE . Tı E REA REE OEE 


Yalue was either too large or too small For an Int32, 


Troubleshooting tips: 


111 ۴ 


Elaë 
Hg Eû#  mulunف ت لاقع كير سخة ما محل فة عددية فن‎ 
Exit Sub Search For more Help Online... 
End TE 
ت ا ت‎ Actions: 
التحقق من فتر القرض'‎ : 
IF IsNumeric [txtDuration. Text] Ther view Detail... 
LoanDuration = Convert. ToInt3a [txtDuration. Te: Copy exception detail bo the clipboard 
Else 


تجاوز الحد ۴|٥0۷‏ 0۷6هي قيمة عددية كبيرة جدا لان يعمل البرنامج على معالجتها, وهذا الخطأً ينتج عادة عندما تقسم 
عدد ما على الصفر او على عدد صغير جدا, وعندما تسند قيمة كبيرة جدا الى متفغير من نوع عدد صحيح ستحصل ايضا 
على خطأً تجاوز الحد«ها۴ ٥۷6‏ ,في الحقيقة أي قيمة تتجاوز القيمة 2,147,483,647في تطبيق "حاسب القروض" 
حالة تجاوز الحد,فهذه هي القيمة الأعلى التي تستطيع ان تسندها الى المتفير من النوع الصحيح, هذه 
القيمة مناسبة بشكل واسع لمتطلبات البنوك ولكنها غير كافية لمعالجة الإيرادات الحكومية والتي من المحتمل ان تتجاوز 
هذه القيمة.كما سترى في الفصل القادم يزودك الفيجوال بيسك بأنواع أخرى من المتفيرات التي تستطيع ان تخزن قيم 
هائلة (تجعل من اطعل اة هة الدين الدولي (بين الدول) صغير عمليا) في الوقت الحالي اذا أردت ان تستخدم برنامج 
"حاسب القروض"صرح عن المتغیر†٣ 1٥2۸۸۳٣01۷‏ كما يلي: عاطDou Dim Lean Amount As‏ حیت ان المتغفیر من نوع 


المزدوج يستطيع ان يحفظ قيم كبيرة واكبر من القيم التي يحفظها المتغير من النوع الصحيح.وكان بالإمكان استخدام 
المتغفير والتصريح عنه على انه من النوع 10۸9 الصحيح الطويل فهو ايضا يحفظ قيم اكبر من9€۲عا٣|‏ الصحيح. 
یمکن ایضا اصطیاد خطاأً تجاوز الحد من خلال كتابة كود التحقق من البياناتعلهء da٥۸‏ iاة۷-هاهةل‏ ,فهناك على الدوام 
فرص لان ينتج عن حساباتك خطاأً تجاوز الحد او أنواع أخرى من الأخطاء الرياضية ولكن التحقق من البيانات لن ينجح 
هنا,حيت انك لن تعلم النتيجة قبل ان تستكشف الحسابات ,فنحتاج الى شي ء ما يدعى معالج الخطأً gl error handling‏ 
مايسمى في الفيجوال بيسك" معالج الاستتناءوہiاك٣a" exception‏ " هذا الكود الإضافي يعالج الأخطاء عند وقوعها,قي 
الحقيقة في هذه الحالة تخبر الفيجوال بيسك بان لا يتوقف عن العمل برسالة خطأً كالتي ظهرت معنا في المقاطع 
السابقة,والتي تربكك9”أككة€۳53۲۲ ولا تساعد المستخدم أبدا,فعوضا عن ذلك سيعمل الفيجوال بيسك على اصطياد 
الخطاً وينفذ العبارات المناسبة والتي تعالج الخطأ,.من الواضح ان عليك ان تكتب المزيد من الكود(عليك كتابة هذه 
العبارات التي تصطاد الخطأ). 
يعمل متال التطبيق هذا كمعلن عن الخطاً و بشکل اتوماتیکي عند حصول خطاأً ما ع۴هك-ااج؟ في البرنامج,اذآً يتبقى علينا 
إضافة لمسة أخيرة على تطبيقنا,فالتنوع في القيم التي تكون على الفورم لا تكن دائما متوافقة 5۷۸٤٥1(‏ فقي وضع 
متزامن مع بعضها البعض) مثلا لنقول انك عملت على حساب " المستوجب دفعه شهريا" من اجل قرض معين,ومن ٿم 
اردت ان تغير فترة القرض لترى كيف تؤتر على "المستوجحب دفعه شهريا" فحالما تغير الفترة للقرض وقبل ان تضغط على 
زر حساب المدفوع شهريا ,فان القيمة في صندوق المدفوع شهريا لا تستجيب لمعاملات ك١عأم۳ه۲هم‏ القرض,بشكل 
متالي يتوجب على صندوق نص المستوجب دفعه كل شهر ان يمحى حالما يعمل المستخدم على تحديث واحدة من 
بيانات او بارومترات القرض,لذا لعمل هذا عليك إدخال العبارات التي تنظف اداة صندوق نص المتوحب دفعه كل شهر آي 
الأداة اnصمصyهtxt)P,‏ ولكن السؤال هنا ما هو معالح الحدت المناسب لهذه العبارة؟ تطلق اداة ضندوف النصض ×80ا×€] 
الحدت 4عوex»iChnaافي‏ كل مرة يتم ا نصها,وهذا هو المكان المناسب لتنفيذ العبارة التي تعمل على تنظيف اداة 
صندوق نص "المتوجحب دفعه کل شهر " على الفورم,وبسبب وجود تلاث أدوات صندوق نص على الفورم,عليك كتابة كود 
ext changed‏ "تغير النص لها جمعا" او كتابة معالج حدث يعالج الجميع دفعة واحدة كما يلي ©(في الكود التالي وضعت 
علامة أمام خاصية التفاف النص لذا تم تقطيع السطر الطويل من الكود الى سطرين كما تعلمت سابقا) 
Private Sub txtAmount_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles‏ 
txtAmount. TextChanged, txtDuration. TextChanged, txtRate. TextChanged‏ 
txtPayment.Clear()‏ 
End Sub‏ 

كما ترى فقد عملت على كتابة معالج عام لكل صناديق النصوص دفعة واحدة بدل من كتابة كلا على حدا وذلك بالضغط المزدوج على 
كل صندوق نص ومن تم إدخال الكود 2۲)0عا€.أ٣عمmر۴a×ا‏ في كل منها ويما ان الأحداث من نفس النوع فيمكن كتابتها جميعها بعد 
الكلمة المحجوزة S€ا2a۸4.‏ 1 
ومن امتلة المشاريع لهذا الفصل مشروع(او نسخة اخرى من مشروع حاسب القروض) تستخدم التاريخ بدل من فترة القرض بالاشهر 
وبالتالي يستخدم واجهة مختلفة,فبدلا من تحديد فترة القرض بالأشهر,يزود هذا التطبيق بنسختين من اداة فرز التاريخ والوقت 
Pate imePicker‏ والتي تستخدم لدي التاريخ, اعمل على حذف صندوق نص الفترة (شهر) من خلال النقر عليه ومن ثم الضغط على عأعاءك 
وكذلك احذف اداة العنوان الموفقة "الفترة (شم" وضع أداتي عنوان كاعطهاعلى الفورم و أداتي فرز التاريخ ۲ع)ءأ#۴ "اه0 فبوضع هذين الأداتين 


يستطيع المستخدم ان يدخل تاريخ بدء وانتهاء القرض ويقوم البرنامج بحساب فترة القرض بالشهور بالعبارات التالية: 
LoanDuration = DateDiff(DateInterval.Month, dtFrom.Value, dtTo.Value) + 1‏ 


حيث ان ۴۲0۳ا هي خاصة الاسم البرمجي ۸2۳€ لأداة فرز تاريخ بداية القرض وه١٠اك‏ هي ايضا خاصية الاسم البرمجي ع۳ة" لأداة فرز 
تاريخ نهاية القرض أما الوظيفة عة فتعطي الفرق بين التاريخين بالشهور وكما يحددها المعامل النسبي الأول للوظيفة ١أما‏ 
المعاملان النسبيان الباقيان فيحدد الأول بداية الفترة ويحدد المعامل الثاني نهاية الفترة, مع الأخذ بعين الاعتبار الشهر الأول من 
القرض لذا تم إضافة 1 الى عملية حساب فترة القرض. 
بعد ان تعمل التفيرات ستصبح واجهة التطبيق مشابهة للشكل التالي: 

اه جساب السدقوع الشهري اقرف ما LC ENE‏ 


تمية القرض 2000 


الغائثحة السنوة 14.5 
تاريخ بذاية القرض |جا 2003 Wednesday, July O1,‏ 
تاريخ نهاية القرض ||| 201 Tuesday , March Ol,‏ 


الدقح في اول يوم من الشهر 


المتوجب دفعد تل شر |1355.04 
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ستتعلم في هذا التطبيق كيفية بناء الة حاسبة وسترى كيف يعمل الفيجوال بيسك على تبسيط العمليات المتقدمة , 

فة اء النظسى لست الد الذف قد له الكتر ف المفدات: 

يضاهي هذا التطبيق الحاسبة الآلية اليدوية ويعالح العمليات الرياضية الأساسية,فله مظهر الحاسبة الرياضية,وتستطيع 
ناضافة هزات مغل الخيب و التخبب والظل_ و النظل رها هن الفملبات الرناضية الأخرفى 


واجهة التطبيق بسيطة ,ولكنها مع ذلك تاخذ بعض الوقت والجهد,فعليك ترصف الازرار على الفورم وتجعل من الحاسبة 

تشبه كثيرا الحاسبة اليدوية0۲اaاuاةc‏ dامh-hand a‏ لذلك ابدا مشروع جحديد وسمه " الحاسبة الرياضية" واعد تسمية 

الفورم الرئيسية له من ۴١۲۳٣1‏ الى ١إat0اcuاa٣صاf‏ من خلال خاصية الاسم البرمجي (€ع3۳. ) ومن خلال خاصية 

النص ا×ع] للفورم اكتب النص "الحاسبة" 

لتبسيط عملية التصميم اتبع الخطوات التالية: 

1- اختار الخط الذي تريده للفورم »فجميع الادوات التي ستضعها على الفورم سترث هذا الخط, واحجعل خاصية من 
اليمين الى اليسار صح وكذلك احجعل تخطيط النموذج من اليمين الى اليسار "نعم " وذلك من اجل ان تكون 
واجهة التطبيق تدعم اللغة العربية. 

2- اضف اداة اعطهاعنوان ,والتي ستصبح شاشة الحاسبة,وضع خاصية عارأ۲5مBord‏ تخطيط الحدود الى 

۴X09‏ تلاتي الأبعاد غير خاصية لون الخط هام٤ ۴۵۲۵١‏ وخاصية لون الخلفية 83٤۸٤010١‏ كما تراه مناسب 
لتظهر الشاشة بشكل مختلف عن باقي الحاسبة. 

3- اسحب اداة زر الى الفورم وغير خاصية ا×٠۲النص‏ لها الى 1 و أعطه اسم برمحي ٥۳ه"٣‏ الى 1٣ط‏ انسخ هذا 
الزر والصقه تسع مرات على الفورم وضع خاصية النص لباقي الأزرار على التوالي الى 
2و3و4و95و6و7و8و99و0 والاسم البرمجي ع۳د٣‏ على التوالي الى b٣2‏ وbtn3‏ و,btn4‏ و,btn5‏ و 
btn6‏ وbtn7‏ وtn8اط‏ وtn9ط‏ وtn".0ط‏ قبل أن تقوم بعملية النسخ اعمل على تنسيق الزر الأول بأفضل 


4- عملية النسخ واللصق كما قلنا سيكون لها نفس الاسم للزر المنسوخ لذا اعمل على تغير كل زر تقوم بلصقه 
الى العنوان المناسب وكما تم ذكره في الفقرة السابقة. 

5- عندما تنتهې من أزرار الأرقام ضع زرين ايضا على الفورم احدهما الفاصلة و ع4۳١اسمه‏ البرمجحي 
teİbtnperiod‏ خاصية ×6 النص له فاكتب عليها النقطة فقط وهنا احجعل خاصية الخط كبيرة نوعا ما لهذا الزر 
كي تظهر النقطة بشكل واضح ,والزر التاني اكتب عليه من خلال خاصية ×6 النص € فقط حيث سنستخدم 
هذا الزر لتنظيف الشاشة ,واجعل ع2۳١اسمه‏ البرمجي ٣هعاعمط.‏ 

6- والآن ضع آزرار من اجل العمليات الرياضية على الفورم ,الجمع (+) ١٥االكه‏ والطرح(-)١0ااعماbtاuء‏ والضرب 
(*) icationاtipاmul‏ والقسمة(/) ”٥iكviا‏ والأسماء البرمجية لها هي على الترتيب(الجمع ١‏ ٥ال‏ ةہاط,الطرح 
btnsubraction‏ ,llضرq‏ ewdall,btnmultiplicationةbtndivisionã(.‏ 


7- أخيرا ضع زر المساواة على الفورم واجعله ومدده بقدر زرين واجعل خاصية النص له الى" = " وأسمه البرمجي 
btnequal JJj‏ 

8- نسق الأزرار على الفورم بحيث تبدو مشابهة للشكل التالي وضع كما هو مبين في الشكل زر لقلب الرقم 
واسمه البرمجي 0۲8۷8۲56 أما خاصية النص فضعها كما هي مبينة في الشكل إلى1/×روأيضا ضف زر أخر 
لعكس الإشارة وضع خاصية النص إلى+- وخاصية الاسم البرمجي 


ضع الخاصية التالية للفورم إلى صح لتتمكن من إظهار الأرقام عند برمجة الأحداث التابعة كبس الزر من خلال لوحة 
المفاتيح كما هو مبين في الشكل التالي 


[۴۲0۳۲1 | سندوق الخاصیات‎ ۳ 
n 
= 
E 


fr System. Windows,Fi < 


Font Segoe UI, 9.75pt 
Forekolor SS LontrolText 
FormBorder® SIzable 
HelpButton False 

Icon 4 Icon] 
ImeMode NoControl 
IEMdiContair False 


Location 0;0 طط‎ 


قبل البدء بمناقشة برمجة الحاسبة سأقدم لك كود التطبيق كامل: 
Public Class frmCalculator‏ 
Dim clearDisplay As Boolean‏ 
Dim Operand1 As Double‏ 
Dim Operand2 As Double‏ 
Dim MathOperator As Strin‏ 


Private Sub bttnClear_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles btnclear.Click 
lbIDisplay.Text = "" 
btnequal.Focus() 


End Sub 


Private Sub bttnPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaddition.Click 
Operand1 = Convert. ToDouble(lbIDisplay. Text) 
MathOperator = "+" 
clearDisplay = True 
btnequal.Focus() 
End Sub 


Private Sub bttnMinus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_ Handles btnsubraction.Click 
Operand1 = Convert. ToDouble(lbIDisplay. Text) 
MathOperator = "-" 
clearDisplay = True 
btnequal.Focus() 
End Sub 


Private Sub bttnDivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_. Handles btndivision.Click 
Operand1 = Convert. ToDouble(lbIDisplay. Text) 
MathOperator = "/" 
clearDisplay = True 
btnequal.Focus() 
End Sub 


Private Sub bttnReverse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_ Handles btnReverse.Click 
If Convert. ToDouble(lbIDisplay. Text) <> O0 Then 
IbIDisplay.Text = (1 / Convert. ToDouble(lblDisplay.Text)). ToString 
clearDisplay = True 
End If 
btnequal.Focus() 
End Sub 


Private Sub CalculatorForm_Keydown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 
Me.KeyDown 
If e.KeyData = Keys.Enter Then 
btnequal.PerformClick() 
e.Handled = True 
End If 
End Sub 


أنت الآن جاهز لإضافة بعض الكود الى التطبيق ,اضغط مزدوج على واحد من أزرار الأرقام وسترى الكود التالي في نافذة محرر الكود: 
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click, btnO.Click,‏ 
btn2.Click, btn3.Click, btn4.Click, btn5.Click, btn6.Click, btn7.Click, btn8.Click, btn9.Click‏ 


End Sub 

كما ترى فقد عملت على إضافة جميع أزرار الأرقام لأنها جميعا تشترك بهذا الحدث فلا يوجد داعي لكتابة جميع الأحدات 
لكل رقم على حدا لذا عملت على كتابتهم دفعة واحدة , فقط ضع فاصلة في نهاية السطر الأول من الكود أي بعد 
).1ط ومن ثم اختار اسم الزر ومن ثم نقطة واسم الحدث ضغط او ءاا©. 
آنت تعلم انك عندما تضغط زر رقم ما في الحاسبة اليدوية يتم إلحاق الرقم في الشاشة ,لمضاهاة هذه العملية ادخل 
السطر التالي في معالج ءأا)حدث الضغط على الأزرار ®(أحيانا قد ترد 18561 وهي نفس /ةامءا60 ولكن أنت أعد تسمية 
أداة العنوان كما بينت سابقا) 

Label1.Text = Label1.Text + sender. Text 
هذا السطر يعمل على إلحاق الرقم الذي يتم ضغطه بشاشة الحاسبة,يمثل المعامل النسبي 860€ لحدث الضغط‎ 
الأداة التي تم ضغطها(او الأداة التي أطلقت الحدث) وخاصية النص ×١٣لهذه الأداة هي نص الزر الذي تم‎ Click 
ضغطه,فمتلا فإذا أدخلت بشكل مسبق القيمة 345 فان ضغط الرقم 0 سيعرض القيمة 3450 على اداة العنوان والتي‎ 
تتصرف كشاشة عرض للحاسبة.‎ 
التعبير خ×٠١.5€"08۲ ليس هو الطريقة الأفضل للتمكن من الوصول الى خاصية النص للزر الذي تم ضغطه ,ولكنه‎ 
,وكما تم مناقشته في الفصل الثاني علينا تحويل الكائن‎ Strict سیيعمل طالما ان خیار التدقيق غير فعال]ه ك¡ ”امه‎ 
نوع معین(من نوع ١٥0ا 8الزر) ومن تم استدعاء طريقة ا×١٤٠النص له لذلك يصبح الكود السابق كمايلي:‎ ىلاs‌end‎ 
Label1.Text = Label1.Text + CType(sender, Button). Text 
الكود خلف أزرار الأرقام يحتاج الى العديد من السطور ,فبعد عمل ما, يجب أن يتم تنظيف الشاشة,وذلك بعد الضغط على‎ 
أ١ احد أزرار العمليات الرياضية متل الجمع او الطرح او غيرها من فلات ,فالشاشة يجب أن يتم تنظيفها في انتظار‎ 
الثاني من العملية ١١€۲3٤م0 ١٩١0ء ,في الواقع يجب أن يتم تنظيف الشاشة حالما يتم الضغط على‎ فرطلاanticipation‎ 
الرقم الأول التابع للطرف الثاني من العملية,وليس حالما يتم الضغط على زر العملية الرياضية,وبطريقة مماثلة يجب ايضا‎ 
تنظيف الشاشة بعد ان يضغط المستخدم على زر المساواة , لذلك عدل عءاe۷#الكود في معالج حدث النقر على الأزرار‎ 
كما هو مبین(في الکود الکامل الذي قدمته لك سابقا کامل)‎ 
المتغير ۷ةامئا(/62/ء تم التصريح عنه كمتغير من النوع المنطقي ١۵ا80 وهذا يعني انه يأخذ واحدة من القيمتين أما صح او خطأً‎ 
,افرض ان المستخدم قد أنجز عملية ما والنتيجة ما تزال معروضة على شاشة الحاسبة,والمستخدم الآن يكتب عدد‎ u۵ ۲ False 
أخررفبدون عبارة الشرط سيستمر البرنامج في إلحاق الأرقام الى الرقم الموجود مسبقا على الشاشة,.وهذه ليست الكيفية التي‎ 
تعمل بها الحاسبة,عندما يبدأ المستخدم بإدخال عدد جديد فان الشاشة يجب ان تصبح فارغة, وبرنامجنا يستخدم المتغير‎ 
متى علينا ان ننظف الشاشة.‎ êê SAJ ear DS 
يعمل زر المساواة على وضع المتغير ۷هامكİ٥۲ةعاء الى صح ليدل على ان الشاشة تحوي على نتيجة عملية ما,فالإجراء‎ 
الجزئي ()Kء|ا٣]أوااضغط الزر يتفحص قيمة المتغير في كل مرة يتم فيها الضغط على زر جديد ,فإاذا كانت القيمة صح‎ 
فان حدث ())ءا٤۲وااضغط زر ما يعمل على تنظيف الشاشة,ومن تم يطبع الرقم الجديد فيها,ومن تم فان هذا الإجراء‎ 
الجزئي يعمل على إسناد القيمة خطا الى المتغيرإةامءا2۲0عاء لذلك عندما يتم ضغط الرقم التالي فان البرنامج لن‎ 


ولكن ماذا اذا ما عمل المستخدم خطا ما ,و اراد التراجع عن الإدخال الأخير؟ فالحاسبة اليدوية النموذجية hand-held‏ 
atorاcuاca‏ ليس لديها زر عمعممBac)ks‏ "التراجع ضغطة للخلف" وزر۲اةعا€ التنظيف يمحي العدد الحالي الذي على 
الشاشة,لنعالج هذه الميزة,اضغط مرتين على الزر € وادخل الكود في معالج حدث الضغط عليه(بينته في الكود الكامل ) 
نستطيع الآن النظر إلى زر الفاصلة(النقطة),يعمل زر النقطة تماما مثل أزرار الأرقام, مع استثناء وحيد هو أنه يمكن للرقم أن يظهر أي 
عدد من المرات في قيمة رقمية,ولكن النقطة يمكن أن تظهر مرة واحدة فقط في قيمة عددية. فعدد مثل 99.991 هو ممكن 
ولكن عليك التأكد من أن المستخدم ليس بإمكانه إدخال عدد مثل التالي55 .3.56 بعد إدخال النقطة يجب على هذا الزر أن لا 
يعمل على إدخال نقطة أخرى(فاصلة أخرى فلن تحتاج لرؤية رقم فيه أكثر من فاصلة واحدة وغير ذلك فالرقم غير صحيح)(لاحظ الكود 
الذي يعالج هذه الحالة في حدث الضغط على زر الفاصلة) 

0۴×علnآهي‏ طريقة يمكن تطبيقها على أي سلسلة نصية.التعبير ×٥١.۷ةام0i5اط|‏ هو نص (النص الذي على أداة العنوان) لذا 
نستطيع استدعاء طريقتها ؟0f×عل"1,‏ يعود التعبير (”.")0×عل"ہ1.ا×ه١.رهامء0iاط|‏ بمكان النسخة الأولى من الفاصلة في نص أداة 
العنوان, فإذا كان هذا العدد(الذي ترجعه الطريقة (.")4e×0۴ہre×۲.1٣.ayاisp(اطا)‏ هو صفر أو عدد موجب, فالعدد الذي تم إدخاله 
يحتوي مسبقا على فاصلة,وفاصلة أخرى لايمكن إدخالها, في هذه الحالة يخرج البرنامج من الإجراء.أما إذا أعادت الطريقة السابقة -1 
فإنه يتم إلحاق الفاصلة إلى العدد حتى الآن تماما كالأرقام النظامية, لقد عملنا فيما مضى واجهة المستخدم التي تضاهي الحاسبة 
اليدوية مع إمكانية إدخال البيانات,ولكنها لا تقوم بأي عملية حتى الآن . 


نستطيع الآن الانتقال إلى إدخال الجزء الهام من التطبيق:برمجة العمليات الرياضية ولنبدأً بتعريف تلات متغيرات: 
لحفظ الرقم الأول في elعمlيةö Dim Operand1 As Double‏ 
لحفظ الرقم الثاني في e|lعleية Dim Operand2 As Double‏ 
لاختيار العملية التي ترغب بإجراءها هل هي جمعg‏ ,قowıةSiri?g...i Dim MathOperator As‏ 
عندما يضغط المستخدم واحد من الرموز الرياضية, فإن القيمة التي على الشاشة يتم تخزينها في المتغير الأول1ل”ة۲مم0 و ضغط 
المستخدم زر الجمع یجب أن يعمل ملاحظة لنفسه أن العملية الحالية هي الإضافة ويعمل على وضع المتغير J!clearDisplayلa‏ صح, بحیث 
يستطيع المستخدم أن يدخل قيمة أخرى (القيمة الثانية التي يجب إضافتها02١006۲3‏ ).تم تخزين رمز العملية في المتغير 
0P0‏ , .فالمستخدم سيدخل قيمة ثانية ومن ثم يضغط على زر المساواة ليرى النتيجة.عند هذه النقطة يجب أن يعمل برنامجنا التالي: 
1- قراءة القيمة التي على الشاشة في المتغير 
2- إتمام العملية المشار إليها بواسطة المتغير ١0اة#€۲م۸0اMa‏ على متغيري الطرفيين 0821© وa۸d2€م©O‏ 
3- عرض النتيجة ووضع المتغير ةامئا2/0ع/ء إلى صح عں٣!.‏ 
يجب أن يتم زر المساواة العملية |l|ilلية Operand1 Operator Operand2:‏ 
على فرض أن الرقم الذي على الشاشة عندما ضغط المستخدم على زر الجمع ١٥0األلة‏ هو3342.ومن ثم أدخل المستخدم 
القيمة23 وضغط زر المساواة .يجب أن ينفذ البرنامج الجمع:23 + 3342 وإذا ضغط المستخدم زر القسمة فالعملية هي كما يلي: 
3 / 3342 المتغيرات هي متغيرات محلية في الإجراء الذي تم التصريح عنهم فيه,والإجراءات الأخرى ليس لديها إمكانية الوصول إليها 
ولا تستطيع قراءة قيمها,في بعض الأحيان يجب أن تكون للمتغيرات إمكانية الوصو ل من العديد من الأماكن في البرنامج.فالمتغيرات 
0er2 d1, Operan2, MathOperator‏ بالإضافة إلى المتغير ۷ة/مء/ 183/2 يجب ا تكون من الممكن الوصول لها من ضمن أكثر من 
إجراء لذا يجب أن يتم التصريح عنها خارج يطاق أي إجراء ,فالإعلان عنهم عادة يتم في بداية الكود بالعبارات المبينة في الكود 
السابق وكما هو موضح في (بداية مقطع برمجة العمليات الرياضية) 
Dim clearDisplay As Boolean‏ 
Dim Operand1 As Double‏ 
Dim Operand2 As Double‏ 
Dim MathOperator As String‏ 
هذه المتفیرات تم استدعاءها من متغیرات على نطاق واسع,أو ببساطة من أي إجراء على الفورم,لنری كيف يستخدم البرنامج 
المتغير ١۲30هم۷31۸0عندما‏ يضغط المستخدم على زر الجمع,يجب أن يخزن البرنامج القيمة"+"في المتغير6۲ة۲ 181۸006 |.وهذا 
يحدث من ضمن حدث نقر زر الجمع.جميع المتغيرات التي تخزن قيم عددية تم التصريح عنها كمتغيرات من النوع المزدوج . 
eا0ub(,والتي‏ بإمكانها تخزين قيم باكبر دقة ممكنة.والمتغير المنطقي 8001۴3۸یاخذ قیمتین:صح ۴٥ع‏ ۲۲uوخطا‏ ۴۵€ وقد رآیت 
مسبقا كيف يتم استخدام المتغير ¥ةامءاe2۲5اع,‏ 
تم إسناد المتغير 1ك١هة۲عم0إلى‏ القيمة الحالية التي على الشاشة.الطريقة ()عاubم ٠١0‏ .۲م۷٣0٤‏ تحول معاملها النسبي إلى 
قيمة مزدوجة. ٠٠×‏ خاصية النص لأداة العنوان اعطةامن نوع السلسلة الحرفيةو ١٣ء‏ .القيمة الفعلية التي تم تخزينها في خاصية 
النص هي في الحقيقة ليست عدد..إنها سلسلة حرفية و9١‏ |٣كمثل‏ 428 والتي تختلف عن القيمة العددية 428 .وهذا هو السبب 
الذي دعانا إلى استخدام الطريقة عااuم0١٣١.مn۷ه)‏ لتحويل قيمة العنوان لأداة العنوان إلى قيمة عددية.أما بالنسبة لأزرار العمليات 
الأخرى فإنها تفعل المتل وهي موضحة في الكود. . 
بعد إدخال الطرقف الثاني ,يستطيع المستخدم أن يضغط على زر المساواة لحساب النتيجة,عندما يحدث هذا فان الكود خلف زر 
المساواة يتم تنفيذه(انظر الكود خلف هذا الزر). 
تم التصريح عن التغير غ/سئ/من النوع المزدوج عاطبام0لحفظ نتيجة عملية الحساب ويالدقة الأعلى.يستخرج الكود القيمة المعروضة 
في اداة العنوان ويخزنها في المتغير 00٥/2702‏ .ومن تم فإن الكود يعمل على إتمام العملية بالعبارة "اختر حالةعءة) امك "وهذه 
العبارة تقارن قيمة المتغير بالنسبة للقيم المجدولة بعد كل عبارة حالة.فإذا ما طابقت قيمة المتغير 0۲ة1۸0p8۲‏ قيمة إحدى 
الحالاتعءة) ,فإنه يتم تنفيذ الحالة الموافقة(جمع أو طرح [ و......)كما هو مبين في الكود خلف زر المساواة. 
اة عمل القسخة كين الاعاء قيمة متغير الطرف الثاني للعملية لأنه إذا كان صفر فلا يمكن تنفيذ العملية .العملية الأخيرة تنفذ 
القسمة فقط إذا كان المقام لییں صفر.فإذا حدٿ لأن يكون المتغير 008/37022 صفر فلا يحدث شي»ء. 1 
والآن شغل التطبيق وتفحصه,ترى أنه يعمل مثل الحاسبة اليدوية,ولا تستطيع جعله ينهار بكتابة بيانات غير صحيحة.فليس علينا استخدام أي كود 
للتحقق من البيانات في هذا المتال لان المستخدم ليس لديه فرصة لكتابة بيانات غير صحيحة.فالية إدخال البيانات سهلة جدا گ0ه۲مامه؟ آو 
مضمون.لا يستطيع المستخدم إلا إدخال بيانات عددية لأنه لا يوجد إلا أرقام عددية على الحاسبة.والخطاً الوحيد المحتمل هو القسمة على صفر 
,وقد تمت معالجته في زر المساواة.وبالطبع سيكون بإمكان المستخدم كتابة فقط القيم العددية ولن تجبرهم على ضغط الأزرار التي على الحاسبة 
لكتابة أرقامهم فيجب أن تمكن المستخدمين من كتابة الأرقام التي تكون على لوحة المفاتيح,لحصر (أو اعتراض) كبس الأزرار eystrokes‌kضمن‏ 
كودك عليك أولا وكما بينت سابقا وضع الخاصية ۷۴۲۷۴۷ للفورم إلى صح. يتم تبليغ کل عملية کبس زر 5عkه۲اكرم)إلى‏ الأداة التي عليها 
التركيز في الوقت المعني وتطلق كبس الزر المعتد على الأحداث: الأحداث (المفتاح للأعلى١۷00WعK‏ ,ضغط الزر كك6إ۷۴ع,المفتاح للاسفل 
9ع)N).نحتاج‏ في بعض الاحيان إلى معالجة كبس ازرار محددة من مكان رئيسي(مركزي),لذلك نضع خاصية الفورم Wء‏ ۷١۷۴ع‏ )إلى صح,لذا فإن 
كبس الأزرار يتم تبليغه أولاً إلى الفورم ومن ثم إلى الأداة التي لديها التركيز.فنستطيع حصر (اعتراض)كبس الأزرار في حدث كبس الأزرار التابع 


للفورم ومعالجتها في معالج الحدث هذا(راجع الكود الكامل وخاصة الإجراء الذي بدايته:€68 01 €)010 0160/1010101 ©0175 ©8[[[©1 ) والذي يبين 
معالج حدث كبس الأزرار للفورم 


معالج الحدث هذا يتفحص المفتاح الذي تم كبسه من قبل المستخدم ويناشد معالج حدث نقر )٤1ا‏ الزر للزر ١0الاطالمناسب‏ باستدعاء طريقته 
Perform Cik‏ .هذه الطريقة تتيح لك "نقر”ء|آاء "زر من ضمن كودك. عندما يضغط المستخدم على الرقم 3 فإن معالحج الحدث "كبس زر 5ئ6 ۷۴۲م " 
التابع للفورم يحصر كبس المفاتيح ءع)ه۲اsرع‌)ويعمل‏ على مضاهاتها مع الزر .5١3‏ 


تعمل تطبيقاتنا التي قمنا بها حتى الآن بشكل جيد وهي سهلة التجريب والإصلاح إذا وحدت خطأً ما(لأنها تطبيقات بسيطة جداآ)عندما تكتب كود ما 
ستكتشف حالاً أن شيء ما لا يعمل كما هو متوقع منه تماما,وعليك آن تكون قادر على اكتشاف لماذا,ومن ثم اصلاح الخلل.عملية التخلص من 
الأخطاء تدعى إزالة الأخطاء وnأووuطe‏ وتوفر الفيجوال استوديو أدوات لتبسيط معالجة الأخطاء,يوجد العديد من تقنيات التصحيح ١9‏ iوdebug‏ 
البسيطة التي يجب أن تعرفها حتى ولو كنت تعمل مع تطبيقات بسيطة. 

افتح تطبيق الحاسبة واذهب إلى محرر الكود وضع المؤشر في السطر الذي يحسب الفرق بين طرفين.لنتظاهر(ندعي )انه يوجد مشكلة ما في هذا 
السطر ونريد تتبع تنفيذ البرنامج بشكل أقرب لاكتشاف الخطأً الذي فيه.اضغط ۴9وسيبرز كعاوذا۸وİالسطر‏ باللون البني.هذا السطر قد أصبح 
breakpoint‏ نقطة توقف:فحالما يصل التنفيذ إليها سيتوقف البرنامج عندها. 

ضغط ۳5لتشغيل التطبيق وأكمل عملية طرح.أدخل عدد ومن تم انقر على زر الطرح ومن ثم عدد أخر ,وأخيرآً زر مساواة.سيتوقف التطبيق ومحرر 
الكود سيفتح .سيتم إبراز نقطة التوقف باللون الأصفر. وأنت ما تزال في صيغة (نظام )وقت التشغيلعله" ٥٣٣لا‏ ,ولكن تنفيذ التطبيق تم إيقافه 
مؤقتا(تأجیله بشكل مؤقت0ك۴٤ل١8ءلاء‏ )تستطيع حتى تحرير الع الكود في نظام الإيقاف عملكه" ع۲ المؤقت وضغط المفتاح ۴5لمتابعة تنفيذ 
التطبيق.مهما يكن التاشير فوق المتغير 0008/2/21 والمتفير 008/27022 في نافذة محرر الكود,فان القيمة للمتغير الموافق ستظهر في صندوق 
المساعدة×0ط طpأ١١0٠٠‏ .حرك المؤشر فوق أي متغير في معالج الحدث الحالي لترى قيم هذه المتغيرات.هذه هي قيم المتغيرات تماما قبل 0۲١۲م‏ 
تنفيذ عبارة الإظۈٍار)lIإبرlزhighlighted‏ ( 

ضع المؤشر فوق المتغير ٤/ائع/ترى‏ أنه صفر لأن هذه العبارة لم يتم تنفيذها حتي الآن .إذا كانت المتغيرات "۷0۷۴١‏ iالمحتواة‏ ضمن هذه العبارة 
لديها القيم المناسبة (إذا كانت هذه المتفيرات ليس لديها القيم المناسبة,عليك أن تعلم أن المشكلة ١٠٥۲م‏ سابقة لهذه العبارة وريما في معالج 
حدث آخر)تستطيع تنفيذ هذه العبارة بالضغط على ۴10,والذي ينفذ فقط العبارة المعلمة(المبرزةلع†٣وا٣وا؟‏ )والبرنامج سيتوقف عند السطر 
التالي .العبارة التالية التي يجب أن يتم تنفيذها هي العبارة" أنهي lllخۃlaرSelect End‏ " 

أوحد حالة عع١"هاكnامن‏ المتغير االائع/في معالج الحدث الحالي,وأعد أك۲6وضع المؤشر فوقها وسترى قيمة المتفغير بعد أن تم اسناد قيمة 
له.تستطیع الآن الضغط على ۳10 لتنفيذ عبارة أخرى أو الضغط على ۳5للعودة إلى نمط التنفيذ العادي. 

تستطيع أيضا تقييم التعابير التي تحتوي و”١|أ۷اه۷٣أعلى‏ آي متغيرات في معالج الحدث الحالي بإرسال العبارة المناسبة إلى نافذة الإظهار 
المباشر0Wل١ W۷‏ عاaاdمصmص[‏ (كما تعلمت مسبقا).تظهر نافذة الإظهار المباشر اسفل بيئة التطوير المتكاملة.فإذا كانت غير مرئية,افتح قائمة 
تصحیح وu9اطع‏ 0 واختار نوافذ "0W‏ |ل۷ومنها نافذة الإظهار المباشر40W¬^ 8i2 W1‏ "1"0 . يتم سبق السطر الحالي في نافذة الأمر 02٣٩‏ 


window‏ بالرمز "اکبر مj‏ >")تذlر joreminiscent‏ أيام الدوس) ضع الموشيرة ١۲50لا‏ بجانبه وأدخل العبارة التالية: 
Operand1 / Operand2‏ ? 


تستطيع إظهار نافذة الأمر من قائمة عرض ۷۵۷ نوافذ أخرى س0ل command Windowرمألl ةذli aiموother wi”‏ ,„ 
uotientهقسمة‏ قيمتين ستظهر في السطر التالي.علامة القسمة هي فقط اختصار لرمز 10ا03" orth‏ hءكتابة‏ امر.إذا كنت تريد أن تعرق 
القيمة الحالية على شاشة الحاسبة,ادخل العبارة التالية: 
1blDisplay.Text‏ ? 
هذه العبارة تطلب قيمة خاصية النص للأداة التي على الفورم.القيمة الحالية لنص أداة العنوان سيظهر في السطر التالي.تستطيع تقيم تعبير 
رياضي بعبارة مثل التالية: 
Mah LOS 1/4)‏ 2 
()09االلوغ هو وظيفة اللوغاريتم "۸ 093۲1اوهي طريقة من طرق فئة الرياضيات.5ءهاء 11 .حاليارستكتشف أن نافذة الإظهار المباشر أداة 
ملائمة للاستعمال امم وك١٣2٣‏ من أجل تصحيح التطبيقات.فإذا كان لديك عبارة ذات تعبير معقد اظ أن تطلب قيم المكونات المستقلة للتعبير 
وتتأکد من صحة هذه المكونات. 
والآن حرك المؤشر فوق نقطة التوقف واضغط مرة تانية ۴9.هذا سيزيل علامة التوقف وتنفيذ البرنامج لم يتم قطعه في المرة القادمة عندما يتم 
تنفيذ هذه العبارة. 
إذا لم يتم توقيف تنفيذ البرنامج عند نقطة توقف ا٣‏ أ0م)break‏ هذا يعني أن نقطة التوقف لن يتم الوصول لها ابدا (كان تضع نقطة التوقف مثلا في 
حالة تابعة للجمع وتقوم بتنفيذ عملية الطرح فمن البديهي أن البرنامجح سيتجاوز عملية الجمع ولن يختار هذه الحالة ويالتالي فإن نقطة التوقف لن 
يتم الوصول إليها أبدآ).إذا لم تسند قيمة مناسبة للمتغيرا 8۸066۲30[ فإن جملة حالة عملية الطرح كما قلنا لن يتم الوصول لها أبدا. عليك وضع 
نقطة التوقف عند بداية عبارة قابلة للتنفيذ لمعالج حدث نقر زر المساواة لتجرب القيم لجميع المتغيرات لحظة بدء تنفيذ هذا الإجراء.إذا كان 
للمتغيرات القيم المتوقعة ,ستسمر بالتقدم في اختبار الكود .وإذا كانت القيم غير ذلك للمتغيرات(غير متوقعة)عليك اختبار العبارات التي تؤدي إلى 
هذه العبارة(العبارات في معالجات الأحداث للأزرار المتنوعة). 
هناك تقنية أخری بسيطة لمعالج أخطاء التطبيقات وهي طباعة قيم متغير معين في نافذة الإظهار المباشر۸40W 1"٣" »١dاهاع W1‏ .على الرغم من 
أن هذه ليست أداة تصحيح.فهي معروفة لمبرمجي الفيجوال بيسك(وهي عملية جدا).العديد من المبرمجين یقومون بطباعة قیم متغیرات مختارة 
قبل ويعد تنفيذ بعض العبارات المعقدة.لفعل هذا استخدم العبارة: ع" اع W.وbuع(متبوعا‏ باسم المتغير الذي تريد أن تطبع قيمته أو متبوعا 
باسم التعبير الذي تريد أن تظهر قيمته في نافذة لإظهار المباشر: 
Debug . WriteLine (Operand1)‏ 
ترسل هذه العبارة مخرجاتها إلى نافذة الإظهار المباشر .وهذه تقنية بسيطة ,ولكنها تعمل .تستطيع أيضا استخدامها لاختبار استدعاء وظيفة أو 
طريقة .إذا كنت غير واثق من الشكل العام للوظيفة ,مرر تعبير مناسب يحتوي على وظيفة معينة إلى العبارة "٥‏ اع g.WوDebu the‏ كمعامل 
نسبي.إذا ظهرت النتيجة المتوقعة في نافذة الإخراج المباشر,تستطيع أن تتقدم للأمام في استخدامها في كودك. 


overflow‏ ا عدد RS‏ ارقم 9 ا ال اة lL‏ انقر رمز ال مرة أخرى وأدخل 
رقم كبير جدا وتابع ضرب النتيجة بقيمة كبيرة جدا حتى تستهلك مجال القيمة المتاحة بالنسبة للمتغفير من النوع المزدوج(حتى تصبح النتيجة كبيرة 
جدا بحيث لا يمكن تخزينها في متغير من النوع المزدوج)عندما يحدث هذا فان النص لا نهاية ,/٣7/٣/سيظهر‏ في شاشة الحاسبة.هذه هي طريقة 
الفيجوال بيسك التي تخبرك أنه لیس بإمکانها معالجة الأعداد الكبيرة.وهذا غير مقتصر على الفيجوال بيسك إنه أسلوب الكمبيوتر في تخزين 
القيم:حيث توفر عدد محدود من البايتات من أجل كل متغير.(لقد ناقشنا sءعا†اككهالشواذ‏ مثل اللانهاية ۷ا۴ہ¡ في الفصل الثاني).لا نستطيع 
إنشاء خطأً تجاوز الحد بتقسيم عدد ما على الصفر,لأن الكود لن يقوم حتى بالمحاولة في تنفيذ هذا الحساب.باختصار.تطبيق الحاسبة إلى حد ما 
متین(نشیط اکلاطه۲ ) ,ولکن ومهما يكن لا نستطيع أن نكون واثقين من أن المستخدم لن يقوم بالتسبب في انتاج خطأً ما في التطبيق.لذا فعلينا 
توفیر بعض الکود لمعالجة جميع أنواع الأخطاء . 


كيف تعمل لتمنع ظهور استثناء ما حسابيا؟ فالتحقق من البيانات ١٥iاة‏ لاج۷ هاة0لن يساعد.حيث أنه من غير الممكن التنبؤ بنتيجة عملية ما 
تماما بدون إنجاز هذه العملية بشكل فعلي.وإذا سببت العلمية تجاوز الحد0۷|؟0۷6۲ ,فلا تستطيع منعه.الجواب هو بإضافة معالج الاستثناء الهيكلي 
exception handler‏ tructuredک,‏ معظم کود التطبيق بسيط جدا ومن الصعوبة توليد استفناء لتوضيح الأهداف.المكان الوحيد الذي يمکن ان يحدث فيه 
استثناء هو معالج زر المساواة .حيث تحدث الحسابات.وفي هذا المكان علينا إضافة معالج الاستتناء.الخطوط الرئيسية ٣۴‏ آاألاملتركيب معالج 
الاستثناء هي التالية: 
TEY‏ 
إ[مقطع العبارات ) 


Cale EXCePEI OD 


إمقطع المعالجة ) 
HIRAI ly‏ 
[ تنظيف(إزالة أخطاء) مقطع العبارات) 
NEL WE‏ 


سيحاول البرنامج اتمام الحسابات التي تمت كتابة كودها في "مقطع العبارات" فإذا نجح البرنامج ,فإنه يتابع التنفيذ عند مقطع "تنظيف مقطع 
العبارات(إزالة الأخطاء) ما هءاء"وهذه العبارات على الأغلب عبارات إزالة الأخطاء,ومقطع "أخيرال ۴1۸411 " هو اختياري.ف|اذا تم فقده فلا توجد 
مشكلة وتنفيذ البرنامج سيستمر بالعبارات التي تلي العبارة"أنهي حاول ر 17 84 ".إذا حدث خطأً ما في المقطع الأول فإن مقطع "التقط 
الاستثناء 1٥1‏ ا c1 ٤×٤6‏ €1 |" يتم تفعيله والعبارات في مقطع المعالجة هذا سيتم تنفيذه. 

مقطع "التقط ة٤‏ " هو المكان الذي تعالج فيه الخطأ,ولا يوجد الكثير لتفعله فيما يتعلق بالأخطاء التي تنتج عن الحسابات.كل ما تستطيع فعله 
هو عرض تحذير وتمنح المستخدم فرصة لتغير القيم. مهما يكن يوجد نوع أخر من الأخطاء, تلك التي يمكن معالجتها بلباقة كبيرة جدا,فإذا كان 
برنامجك لا يستطيع القراءة من مشغل الأقراص المدمجة.تستطيع منح المستخدم فرصة لإدخال القرص المدمج والمحاولة مره أخرى.في الحالات 
الأخرى,تستطيع أن تطلب من المستخدم إدخال قيمة مفقودة ومن ثم الاستمرار.إذا حاول التطبيق مثلاً الكتابة على ملف "للقراءة فقطرا"ه-لهمم " 
مثل تحديد ملف على القرص المدمج(وهذه الملفات تكون عادة للقراءة فقط ولا يمكن الكتابة عليها)آو ملف تكون مواصفة للقراءة فقط فعالة.تستطيع 
عرض تحذير ,والخروج من الإجراء الذي يحفظ البيانات ,وتمنح المستخدم فرصة إما لاختيار اسم ملف آخر أو تغير المواصفة للقراءة فقط بالنسبة 
للملف الذي تم اختياره. 

بشكل عام ,لا توجد طريقة مفردة ومميزة لمعالجة كل الاستثناءات,يجب عليك أن تأخذ بعين الاعتبار جميع أنواع الاستثناءات التي يمكن أن يسببها 
تطبيقك ومعالجتها بقوام مستقلءائةط اdua "divi‏ .الأكثر أهمية نان معالجات الأخطاء هو أن لا ينهار تطبيقك,ببساطة لا يقوم بعمل العمليات التي 
تسبب الأخطاء (وهذا يعرف أيضا بعملية الإغاظة(التكدير offending 00٤/21/٥0‏ ( و عبارات التجریح €۸" offending state‏ ) ومن تم يتابع التنفيذ 
بدون اية معالجة.معالح الخطاً من أجل تطبيق الحاسبة يجب أن یخبر (یبلغ ¡"۴٥۳۳٣‏ ) المستخدم أن خطأً ما قد حدث ويخرج من الحسابات,ولا حتى 
يحاول عرض النتيجة,(راجع كود الحاسبة ولا حظ معالج الحدث الذي تم أضافته إلى معالج حدث النقر على زر المساواة) 

يبقى معالج الخطأً غير فعال في أغلب الأوقات ولا يتدخل بعمليات البرنامج.فإذا ما حدث خطأً ما وعلی الأغلب سيكون خطأً تجاوز الحد 

overflow‏ ,فإن مقطع معالج الخطأً بالعبارات "حاول...التقط...انهي حاوryJ‏ 1 Try. . .Catch. . ,End‏ "سیتم تنفيذه.يعرض هذا الكود صندوق رسالةِ 
تحتوي وصف للخطاً وتعرض ايضا النص "خطأً "ERROR‏ على شاشة الحاسبة. مقطع' 'أخيراً ۴۷" یتم تنفیذه بغض النظر عن حدوث الخطاً 
في هذا المثال يعمل مقطع"أخيراآً "۴|١2۷‏ على وضع قيمة المتغير ۷ةامكأ۲0هعاءإلى صح عن۲٣لذلك‏ عندما يتم ضغط زر رقم أخر فإن الرقم الجديد 


الفضل الخامسن ۰ 
سشيضاف فيمابعذ إن شاء الله.(لا تقلق فهو لن يؤثر على الستاق العام لأنة فصل خاص) 


القضل الفادن 


في الفصول السابقة قمنا باستكشاف بيئة تطوير الفيجوال بيسك ومبادئ البرمجة المقادة بالأحداث والتي هي جوهر 
نظام البرمجة للفيجوال بيسك. أثناء عمليات المعالجة عملنا على استكشاف بعض الأدوات الأساسية باختصار من خلال 
الأمثلة. يزودك إطار العمل بالعديد من الأدوات الأخرى ولكل منها ملناخدخ1تاسحشد من الخصائص العادية (مثل 
الخط,ولون الخلفية» وما الى ذلك) و التي تستطيع أن تعمل على إعدادها أما من خلال نافذة الخصائص أو من ضمن 
كودك.سنستكشف في هذا الفصل بعمق أدوات ويندوز الأساسية : الأدوات التي تستخدمها غالبا في تطبيقاتك لأنها 
بلوكات البناء الأساسية لواجهة المستخدم.ستتعلم في هذا الفصل مايلي: 
1- استخدام أد اة ×1e×80صندوق‏ النص كأداة ادخل البيانات وأداة تحرير النص. 
2- استخدام اداة ×ه8غءنا صندوق القائمة,وأداة Box‏ isاCchecked‏ صندوق اختیار القائمة وأداة 
×0 o08ط«د€‏ الصندوق المركب لتمثيل قوائم من البنود. 
3- استخدام اداة :0118aءcءSكشريط‏ الانزلاق ,و أداة إackBaعاشريط‏ المسار (الترادف ) لتمكين المستخدم من 
تحديد الحجم والموضع باستخدام الفأرة. 


إن اداة صندوق النص هي الآلية الرئيسية لعرض وإدخال النصوص.حيث انها محرر نص صغير يزود بحميع التجهيزات 
الأساسية اللازمة لتحرير النصوص:مثل إدخال واختيار النص,الانزلاق اذا كان النص غير مرئي او لا يناسب 
المساحة,وحتى تبديل النص من تطبيقات أخرى من خلال الحافظة ك٣إهمطمذ1٣‏ .اداة صندوق النص هي اداة متعددة 
|ılسwتعمlالںت extremely versatile‏ وبشكل واسع فيما يحص إدخال البيانات حيث انك تستطيع ان تستخدمها لإدخال 
وتحرير السطور المفرد من نص » مثل الأعداد او كلمات المرور,او ملف نصي كامل. وتستطيع ايضا اذا كانت 
مساحة النص غير كافية ان تعمل على إعداد خاصية شريط الانزلاق العمودي او الأفقي ويمكن ان تظهر هذه الأشرطة 
بشكل أوتوماتيكي عندما تصبح مساحة صندوق التص غير كافية لعرض النص في خاصية النص.جميع صناديق النصوص في 
الشكل التالي تحوي على نصوص بعضها ذات سطر مفرد والبعض الأخر متعدد الأسطر ومنها له شريط انزلاق كما هو 
مبين في الشكل_التالي: 


The TextBox control |3 the pnmary mechanism far 
displayıîg and entenfıg text. In effect, t's a small text 
editor that provıdes all the basıc text-editıng facilites: 
ınserlınq and seleclıng text, scrollıng ıf the text doesn't 
ft in the control's arês, and even exehanging text with 
e apphecatsons through the Clpboard. 


The TextBon control is the primary mechanism for 
displaying and entermq text. In effect, ıt's a small text 
êditar that prövıdêš ãll thê ba3 têxt-editiîmg facılthêš: 


inserting and selecting text, scrolling ıf the text doesn't [ 1515 Palm Ave. 
ft ın the control's area, and even exchanging text with Suite Z02 
other appheatıons through the Clipboard. Pasadena, CA YONOO 


The TextBox control is the pomiary mechanism for 
displayınq and entenınıq text. In affect, ıt's a small text 


The TextÊox control is used for enîering free text, 
Just like NotePod. 


لنبدا مع الخصائص الأساسية التي تحدد مءء١دةإة٠عمططه‌المظهر‏ وبعض درجات التخصص الوظيفي لأد اة صندوق النص» وهذه 
الخصائص عادة تعمل على إعدادها وقت التصميم من خلال نافذة اخصائصwindow Properties‏ . ومن ثم فإننا 
سنلقي نظرة على الخاصيات التي تتيح لك معالحة محتويات الأداة والتفاعل مع المستخدم من ضمن كودك. 


تعمل هذه الخاصية على إعداد او (تعود) بترصيف نص الأداة (تجانب نص الأداة) وقيمتها عضو من عداد الترصيف 
الأفقي ddI Center gyا| Right jnall g| Left رlwıll d1 :HorizontalAlignment‏ المركز.فأداة صندوق النص لا 
تسمح لك بتنسيق النص(مزج خطوط او ألوان مختلفة) ولكن تستطيع ان تعمل على إعداد الخط الذي سيتم عرض النص 
به من خلال خاصية الخطخصه۴ ,بالإضافة الى لون خلفية الأداة من خلال الخاصية BackColor‏ . 


تحدد هذه الخاصية فيم اذا ستحتفظ اداة صندوق النص بنص ذو سطر مفرد او متعدد السطور. في كل مرة تضع فيها 
اداة صندوق نص على الفورم يتم تحجيمها من اجل نص بسطر مفرد وتستطيع في هذه الحالة تغير طول صندوق النص 
فقط(اتساعه) ولتغير هذا السلوك عليك وضع خاصية متعدد الأسطر الى صح . عندما تعمل على إنشاء صندوق نص 
متعدد الأسطر فانه يتوجب عليك وفي اغلب الحالات ان تعمل على إعداد واحدة او أكثر من الخاصيات التالية من 
خلال نافذة الخصائص :الطول الاعظمي engthاMax,‏ أشرطة الانزلاق كإھط11دعإعSc‏ والتفاف النص .Word Wrap‏ 


تحدد هذه الخاصية عدد الأحرف التي سيقبلها صندوق النص. فالقيمة الافتراضية لصندوق النص هي 32,767 والتي كانت 
العدد الاعظمي من الأحرف في إصدار الفيجوال بيسك6 ,فالعمل هنا على إعداد هذه الخاصية الى صفر 0 يمكن النص 


من ان يحتوي على أي طول ,يمكن ان يصل الى 2,147,483,647 حرف, أما من اجل تحديد عدد الأحرف التي يستطيع ان 
: المستخدم ضع قيمة هذه الخاصية الى عدد الأحرف التي تريد ان لا يتجاوزها المستخدم . 

ان اداة الطول الاعظمي لصندوق النص في اغلب الأحيان يتم العمل على تحديد قيمتها في تطبيقات إدخال 

البيانات,والتي تمنع المستخدم من إدخال حروف تتجاوز الحد الذي يستطيع حقل قاعدة البيانات ان يستوعبه, 

فمثلا صندوق النص المحدد لإدخال أعداد الكتب القياسية الدوlلÎqu‏ ) international standard book numbers‏ 

(18۸۲5) ) لن تقبل أكثر من 13 حرف. 


تمنحك هذه الخاصية القدرة على تحديد أشرطة الانزلاق التي تريد ان تلحقها بأداة صندوق النص إذا ما تجاوز 
exceedsالنص‏ أبعاد dimensions‏ لأداة ولكنك لا تستطيع ان تضع شريط انزلاق بالنسبة لصندوق نص ذو سطر 
مفرد حتى ولو تجاوز النص اتساع الأداة. أما صندوق النص المتعدد الأسطر بمكن ان يكون لديه شريط انزلاق أفقي 
horizontal‏ او vertica1‏ عمودي, او كلاھما,فإذا ما ألحقت شريط انزلاق Îفتقq horizontal‏ بأداة صندوق النص فان 
النص لن يلتف بشكل آلي عندما يكتب المستخدم.فمن اجل البدء بط جديد على المستخدم ان يضغط مفتاح الإدخال 
Enter‏ ,هذه الترتيبات مفيدة في عمل محررات الكود في تلك الحالات التي يجب ان يتم تقسيم السطور بشكل واضح. 
فإذا كان شريط الانزلاق الأفقي غير موجود فان الأداة تعمل على تقسيم السطر عندما يصل النص الى نهاية السطر 
وبُالتالي فان النص يلتف بشكل أوتوماتيكي الى بداية سطر جديد,ولكن تستطيع تغير السلوك الافتراضي من خلال 
العمل على إعداد خاصية التفاف النص صWra word‏ 


الخاصية فيما اذا سيلتف النص بشكل آلي عندما يصل الى حافة الأداة,وبشكل افتراضي قيمة هذه الخاصية 
هو صح. سنعمل فيما بعد مفكرة وتستطيع ان تختبر خاصية التفاف النص وأشرطة الانزلاق فيها.ولكن لاحظ هنا ان 
خاصية التفاف النص ليس لها أي تأثير فعلي على تقسيم السطور, فالسطور تلتف بشكل آلي ولا يوجد إشارة ارجاع 
(الشحطة المنخفض) عند نهاية السطر. 


1 فد اداة صندوق النص مع مفتاح الرجوع (فتح سطر جديد إعخ«۴) ومفتاح التنقل 
طة1 فمفتاح الإدخال «#١‏ او الرجوع(بالنسبة للملفات النصية) يعمل على تفعيل الزر الافتراضي على الفورم 
فإذا وجد زر فان الزر الافتراضي عادة يكون زر ×0 والذي من الممكن تفعيله بالمفتاح إ٥۴t,حتى‏ ولو لم يكن 
لديه التركيز. اما بالنسبة لأداة صندوق النص المتعددة الأسطر,ومهما يكن فنحن نريد ان نكون قادرين على 
استخدام مفتاح الإدخال لتغير الأسطر,عادة تكون القيمة الافتراضية للخاصية"قبول انلرجوgعAcceptsReturn‏ " 
فعالة (صح) ولذا فان ضغط المفتاح ٣٤٥۸ع‏ يعمل على إنشاء خط جديد على الأداة,فإذا ما عملت على إعداده الى 
خطأً (غير فعال) يبقى بإمكان المستخدمين إنشاء سطور جديدة في اداة صندوق النص,ولكن عليهم الضغط على 
,)RL+ENTER‏ أما اذا كانت الفورم لا تحوي على زر افتراضي فان مفتاح الإدخال يعمل على إنشاء سطر جديد بغض 
النظر عن اعدادات الخاصية ١إuخهtsRمeمAcc.‏ وبطريقة مماثلة تحدد الخاصية طة1ءخممcعAc‏ مhطtخ‏ كيفية استجابة 

الأد اة لمفتاح التنقل طة1 , بشكل طبيعي يأخذك المفتاح طةآ١الى‏ الأداة التالية وحسب ترتيب التنقل ,وبشكل 
عام نتجنب تغير الإعدادات الافتراضية لخاصية قبول التنقل طة1ئخممععA‏ .من الممكن انك تريد من المفتاح طه1افي 
اداة صندوق النص المتعدد الأسطر ان يعمل على إدخاJ‏ leٺاnة‏ llؤؤشرcharacter dd Tab‏ نص الأداة.لعمل هذا ضع 
خاصية "قبول التنقل "للأداة الى فعال (القيمة الافتراضية لها تكون غير فعال) ,فإذا غيرت القيمة الافتراضية يبقى 
باستطاعة المستخدمين التنقل الى الأداة التالية حسب ترتيب التنقل ط1 بالضغط على ,٥C1۸1+1۸8‏ لاحظ ان خاصية 
طaاAccepts‏ ليس لها تأثير على الادوات الأخرى,ولكن على المستخدمين ضغط ٤71R1+148‏ للتنقل الى الأداة 
التالية,بينما يكون التركيز على اداة النص,ولكن باستطاعة المستخدمين استخدام مفتاح التنقل طة1للتحرك من 
أي اداة أخرى الى الأداة التالية على الفورم 


ليست بحاجة الى شرح فإنها تعمل على تحويل حالة الأحرف بين الحالة الكبيرة والصغيرة التي يعمل المستخدم على 


إدخالها فتستطيع من هذا الأداة تحويل مثلا جميع الأحرف التي يعمل على إدخالها المستخدم الى حالة الأحرف الصغيرة 
او الكبيرة حسب الحاجة. 


تعمل هذه الخاصية على تحو الأحرف المكتوبة الى أي رمز او محرف تعمل أنت على تحديده,.فإذا كنت لا ترغب بعرض 
الحروف الحقيقة التي cs‏ المستخدم (عند إدخال كلمة المرور مثلا) استخدم هذه الخاصية لتحديد الحرف الذي 
تريده ان يظهر مكان كل حرف يعمل المستخدم على كتابته,القيمة الافتراضية لهذه الخاصية هي نص فارغ,والتي تخر 
الأد اة بعرض الحروف كما هي (عرض الأحرف الحقيقية) فإذا ما عملت على وضع رمز «ععذءعماعهالنجمة (*) مثلا فان 
المستخدم سيرى النجمة مكان كل حرف يكتبه,مع الأخذ بعين الاعتبار ان هذه الخاصية لا تؤثر على النص الذي يكتبه 
المستخدم فهي محرد قناع فقط لحماية النصوص الخاصة مثل كلمة المرور من ان يشاهد احد ما الذي تكتبه. 


تعمل خاصية للقراءة فقطرا«۵0ةعهR‏ على منع المستخدم من إدخال أي بيانات في الأداة التي يتم إعداد هذه 
الخاصية لها ,فهو يستقبل البيانات دون ان يستطيع ان يحررها, أما خاصية كهkعصا‏ التثبيت او الإغلاق فإنها 
تعمل على تثبيت الأداة في مكأنها على الفورم وتستخدم هذه الخاصية وقت التصميم كي لا يتم نقل الأداة التي تم 
تنسيقها بالنسبة لباقي الادوات عن طريق الخطاً. 


الخاصيات التي تعمل على معالجة النصوص لأداة صندوق النص متاحة وقت التنفيذ فقط,يقدم هذا المقطع تحليل 
JSJbreakdown‏ خاصية. 


الخاصية الأكثر أهمية لأداة صندوق النص هي خاصية النصخ×ه1 ,والتي تثبت نص الأداة,تستطيع العمل على إعداد 
هذه الخاصية وقت التصميم لعرض النص الأولي على الأداة.لاحظ انه يوجد طريقتين لإعداد هذه الخاصية وقت 

التصميم ,فمن اجل صندوق نص وحيد السطر يتم وضع النص الى نص قصار, أما بالنسية لصناديق النصوص المتعددة 
الأسطر افتح خاصية الأسطر ك دnذاو‏ أدخل النص في String ezo11اection Editor window‏ نافذة محرر مجمع النصوص»ء 
والذي سيظهر في هذه النافذة كل فقرة تم إدخالها كسطر مفرد في النص,وعندما تنتهي اضغط ×0لإغلاق 
النافذة,فالنص الذي أدخلته في نافذة محرر مجمع النصوص سيتم وضعه على الأداة.وبالاعتماد على اتساع الأداة و 
اعدادات خاصية التفاف النص فيمكن للفقرة ان يتم تجزيئها الى عدة اسطر كما هو مبين في الشكل التالي: 
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أما وقت التنفيذ استخدم خاصية النص لاستخراج النص الذي تم إدخاله من قبل المستخدم او من اجل تبديل 
النص. خاصية النص هي بيانات نصية ويمكن ان تستخدم كمعامل نسي مع وظائف معالحة البيانات النصية للفيجوال 
بيسك. وتستطيع ان تعالجهاً manipulate‏ lڍLè‏ بواسطة مكونات فئة النصوص. التعبير التالي يعود بعدد الحروف في 
اداة صندوق النص: 
Dim strlen As Integer = TextBox1. Text.Length‏ 
الطريقة 0×هلك"1 لفئة النصوص ستجد البيانات النصية الجحددة في نص الأداة,فالعبارة التالية ترجع موضع 
occurrenceالصادفة‏ الأولى للنص " ل1ةنائة۷"في النص: 
Dim location As Integer‏ 
location = TextBox1.Text. IndexOf ("Visual")‏ 
لتخزين محتويات الأداة في ملف استخدم عبارة كالتالية: 
StrWriter.Write (TextBox1l. Text)‏ 
وبشكل مشابه تستطيع أن تقرأً محتويات ملف نصي في أداة صندوق النص باستخدام عبارة مثل التالية: 
TextBox1. Text = StrReader.ReadToEnd‏ 
حيث ان erFخStrWri‏ و StReader‏ متغيرات مناسبة يتم التصريح عنهما ككاتب وقارئ البيانات على التسلسل 
Stream Reader , StreamWNri ter‏ سترى لاحقا في الفصول القادمة كيفية طباعة الملفات النصية وكيفية الوصول 
إليها لا تشغل بالك كثيرا بها الآن فقط عليك التركيز على الخصائص وكيفية معالجتها في هذا الفصل. 
لايجاد جميع النسخ من بيانات نصية ما في نص معين استخدم حلقة كالحلقة التي سنعرضها فيما يلي وهذه الحلقة تحد 
النسخ المتتالية للنص " عذعة8" ومن ثم تستمر بالبحث عن الحرف الذي يتبع النسخة السابقة من الكلمة في 
النص,فمن اجل إيجاد النسخة الأخيرة من بيانات النص في النص استخدم الطريقة 0۴×هه"1اءها1,. تستطيع كتابة 
حلقة مشابهة للمعروضة هنا لمسح النص بشكل تراجعي (بشكل راجع أي من النهاية الى البداية) 
Dim startIndex = -1‏ 
startIndex = TextBoxl1.Text. IndexOf ("Basic", startIndex + 1)‏ 
While startIndex > 0‏ 
Debug.WriteLine ("String found at " & startIndex)‏ 
startIndex = TextBoxl1.Text. IndexOf ("Basic", startIndex + 1)‏ 

End While 
زر على الفورم ومن ثم ضع‎ Button لتجرب مقطع الكود السابق ضع أداة ×80×١1صندوق نص متعدد الأسطر وأداة‎ 
عبارات الكود السابق في معالج حدث النقر على الزر,شغل التطبيق ومن ثم ادخل نص في اداة صندوق النص وتأكد‎ 

من ان النص الذي أدخلته يحتوي على الكلمة 83516 او غير الكود ليعمل بحث عن كلمة أخرى ومن ثم انقر على 

الزر.لاحظ ان الطريقة 0۴×٥ك"1‏ تنجز بحث في حالة الحساسية للأحرف أي ان هذه الطريقة حساسة لحالة الأحرف 

سواء كانت صغيرة او كبيرة. 

استخدم الطريقة لتبديل نص بنص أخر ضمن السطر. والطريقة لتقسيم السطر الى مكونات اصغر (مثل الكلمات) و 

بإمكانك استخدام أي طريقة أخرى يتم عرضها بواسطة فئة النصوص لمعالجة نص الأداة, فالعبارات التالية تعمل 

على إلحاق نص ما بنص موجود سابقا على الأداة: 

TextBox1.Text = TextBoxl1.Text & newString 

هذه العبارة تظهر فقط في تطبيق فيجوال يسك6 الذي يعمل على معالجة نص اداة صندوق النص وهي غير فعالة لإلحاق 

نص بالأداة ,وخاصة اذا كانت الأداة تحتوي مسبقا على الكثر من النصوص ,.تستطيع الآن ان تستخدم الطريقة 

666016٤‏ لتزيّل (او إلحاق ) نصوص الى الأداة والتي هي فعالة أكثر بكثير من الطريقة السابقة والتي تعايج 

خاصية النص للأداة بشكل مباشر,فمن اجل إلحاق نص الى اداة صندوق النص استخدم العبارة التالية: 
textBox1 . AppendText (newString)‏ 

الطريقة خ×16 ۸666۸3 تعمل على إلحاق نص محدد الى الأداة كما هو بدون ان تقسم الأسطر بين الاستدعاءات المتلاحقة 

.فإذا كنت تريد ان تلحق فقرة مستقلة بنص الأداة عليك إدخال مقسم الأسطر بشكل صريح كما في التالي(حيث ان 

گا1اz٣طv‏ هو ثابت من اجل عودة المؤشر /وتحميل سطر جديد) 

TextBox1 .AppendText (newString & vbCrLf) 


بالإضافة الى خاصية النص تستطيع الوصول الى النص على الأداة باستخدام خاصية ”٣دا‏ الأسطر, وخاصية الأسطر هي 
مصفوفة نصية,وكل عنصر يثبت طعةإود٣إةم‏ فقرة من النص .فالفقرة الأولى يتم تخزينها في العنصر" (0) ئم«ذط 
سطر (0) " والفقرة الثانية يتم تخزينها في "(1)كهصذ1ا سطر(1)" وهكذا . تستطيع ان تعمل دوران على السطور 
باستخدام حلقة كالتالية: 
Dim iline As Integer‏ 
For iline = 0 To TextBoxl1.Lines.GetUpperBound (0)‏ 
process string TextBoxl1.Lines (iLine) }‏ { 
Next‏ 
يتوجب عليك تبديل السطر الذي بين الأقواس المنحنية بالكود المناسب, لان خاصية الأسطر هي مصفوفة فإنها تدعم 
الطريقة ك١٨نا6۶80 66٤066‏ " احصل على الحد الأعلى " والتي تعود بفهرس العنصر الأخبر للمصفوفة , كل عنصر من 


مصفوفة الأسطر هو نص ,وتستطيع استدعاء أيا من طرق فئة النصوص لمعالجته, عليك ان تتذكر دائما انك لا 
تستطيع ان تحول النصوص التي على الأداة من خلال تحرير مصفوفة الأسطر, لكن ومهما يكن تستطيع ان تعمل على 
إعداد نص الأداة باسناد مصفوفة نصية الى خاصية كع ٣ذاالأسطر‏ . 


تزودك اداة صندوق النص بثلاث خاصيات لمعالجة النص المختار بواسطة المستخدم وهي :خ×٥1لdمtغءم1هS‏ النص المختار 
و SelectionStart‏ بداية الاختيار و طخengاectionاSe1‏ طول الاختيار. يستطيع المستخدم ان يختار مجال النص 
بواسطة "ioخopera‏ ragعd-and-ckعiاc‏ العملية نقر- سحب وبالتالي فان النص المختار سيظهر بلون معكوس, تستطيع 
التمكن من الوصول الى النص المختار من ضمن كودك من خلال الخاصية t×٠d1مtغcماهSك"‏ النص المختار" وتحدد موضعها 
في نص الأداة من خلال الخاصية SelectionLength iصl#Èl yg SelectionStart‏ 


هذه الخاصية تعود بالنص الذي تم اختياره وتمنحك القدرة على معالحة الاختيار الحالي من ضمن كودك. فمثلا تستطيع 
ان تبدل النص الذي تم اختياره بإسناد قيمة جديدة الى خاصية "النص المختارخ×هd1همtغcم1هك‏ ". لتحويل النص 
المختار الى نص جديد تكون فيه حالة الأحرف كبيرة» استخدم الطريقة :إممطمطلاه٣‏ الى الأعلى من فئة النصوص و«صذعإخكS‏ 
.class‏ 


TextBox1.SelectedText = TextBoxl.SelectedText. ToUpper 


النص المختار من قبل المستخدم على الأداة ,او لاختيار نص من ضمن كودك , 
بداية الاختيار تعود او تضع موقع الحرف الأول من النص المختار بطريقة مشابهة لوضع 
مشبرة الكتابة إ0كعناء عند موضع معين في النص واختيار النص بسحب الفارة. أما خاصية 101€ 581€ طول 
الاختيار فإنها تعود او تضع طول النص المختار 
على فرض ان المستخدم يبحث عن كلمة "فيجوال " في نص الأداة تعمل الطريقة 0۴×هل”1 على إيجاد النص ولكنها لا 
تختاره,العبارات التالية تختار الكلمة في النص وتعمل على إبرازها وتجلبها الى شاشة العرض ,لذا فان المستخدم 
Dim seekString As String = "J| ga"‏ 
Dim strLocation As Long‏ 
strLlLocation = TextBox1l. Text. IndexOf (seekString)‏ 
If strLocation > 0 Then‏ 
TextBox1l. SelectionStart = strLocation‏ 
TextBox1. SelectionLength = seekString.Length‏ 
End If‏ 
TextBoxl. ScrollToCaret ()‏ 


تدعم اداة صندوق النص الطريتقة خ٠إة56#611766‏ والتي تحلب مقطع النص الذي يتم البحث عنه الى الواجهة 


النص المختار في صندوق النص لا يبقى بارز عندما ينتقل المستخدم الى اداة أخرى او الى الفورم,لتغير هذا 
السلوك الافتراضي ,اعمل على وضع الخاصية ١٥iغخHideSel1ec‏ ال ٣۴a1se"‏ غير فعال " .ان استخدام هذه الخاصية هو 
لحفظ النص المختار بشكل بارز حتى ولو انتقل التركيز الى فورم أخرى او الى صندوق حوار مثلا "إيجاد واستبدال" 
أما اذا ما أبقيت القيمة الافتراضية والتي هي "عا٣٣‏ فعال" فهذا يعني ان النص لم يبقى بارزا عندما يفقد 
صندوق النص التركيز. 


بالإضافة الى الخاصيات,فان لأداة صندوق النص طرق من اجل اختيار النص ,تستطيع ان تختار بعض النصوص باستخدام 
الطريقة "اختر 1مك" والتي لها الشكل العام التالي: 

TextBox1. Select (start, length) 

الطريقة "اختر" مكافئة لوضع الخاصيتان " خ٣إهtخكectionاSe‏ بداية الاختيار " nطengtاectionاSe1وطول‏ الاختيار" 
فمن اجل اختيار الحروف من 100 الى 105 على الأداة ,استدعي الطريقة " ectاSe‏ اختر" ومرر لها القيم 99 و6 
كمعاملات arguments iyui‏ 

TextBox1l1.Select (99, 6) 

كتذكير فان ترتيب الحروف يبدأ من الصفر(فهرس الحرف الأول هو الصفر والحرف الثاني هو الواحد والحرف الثالث 
هو 2 وهكذا أما فهرس الحرف الأخبر فيكون طول النص منقوصا منه واحد) .اذا كان محال الأحرف التي عملت على 
اختيارها تحتوي على sجمدeإط 1ine‏ dعaط‏ رموز تقطيیع الأسطر يحب ان تأخذها بعين الاعتبار,وكل رمز تقطيع للأسطر 
يتم احتسابه كحرفين( رجوع المؤشر و تحميل السطر 4ءء return and 1ine‏ eموiaذاإعca)‏ . اذا كانت اداة صندوق 
النص تحتوي على النص AB٣9۴۴6۴1‏ فان العبارة التالية ستعمل على اختیار المجال 5٤۴6‏ 

TextBoxl1.Select(3, 4) 

فإذا عملت على إدخال تقطيع السطر بين كل ثلاث أحرف فان النص سيصبح كما يلي(ونفس العبارة السابق ستعمل 


على اختيار الأحرف 5۴) : 


في الواقع لقد تم ايضا اختيار الرموز الخاصة التي تفصل السطرين الأول والثاني,ولكن الرموز الخاصة لا يتم 
عرضها وبالتالي فانه لا يمكن ان يتم إبرازها. بقي طول الاختيار في العبارة السابقة هو 4 ولكن كما قلنا 
الحروف او الرموز الخاصة لا يتم عرضها.يوجد تنوع لطريقة ا٥ه1ه6"اختر"‏ وهو الطريقة " A11‏ غ٥ه1هŠ‏ اختر 
الجميع" والي تختار كل النص الذي على الأداة. 


الميزات المهمة لأداة صندوق النص هي انه من الممكن وبشكل آلي التراجع عن معظم عملية التحرير والتحديث 
الحديثة .فلتراجع عن عملية من ضمن كودك يب ان تتفحص قيمة الخاصية ملصلاصة٤‏ "يمكن التراجع" فإذا كانت ما٣1‏ صح 
عندها ممكن للأداة التراجع عن العملية ,ومن ثم تستطيع الطريقة لصن "تراجع" للتراجع عن معظم التحديثات 
الحديثة. 
عملية التحرير هي إدخال او حذف حروف.فإدخال نص بدون أي حذف تعتبر عملية مفردة,وسوف يتم التراجع جخطوة 
وحيدة ايضا,حتى ولو استغرق المستخدم ساعات في إدخال النص(ولكن بدون عمل أي تصحيح) تستطيع جعل كل n‏ 
يختفي باستدعاء وحيد لطريقة dهطخعمص‏ ملفnصتل‏ "التراجع",ولكن ولحسن الحظ فان عملية الحذف ستصبح العملية 


والتي بمكن التراجع عنها باستدعاء أخر لطريقة م0لصنل"تراجع" .في الواقع طريقة "التراجع" هي 91eووهخ‏ عقدة 
تمفصل أي(عمل/التراجع عن العمل)فعند استدعاءها لأول مرة فإنها تعمل على التراجع عن عملية التحرير الأخيرة 
وإذا ما عملت على استدعاءها مرة أخرى فإنها تعكس العملية أي عمoلهإتعيد‏ عمل العملية الأخيرة.عملية حذف 
نص يمكن التراجع عنها فقط اذا مم تحدث عملية تحرير في الوقت المعني.تستطيع تعطيل عملية ملءء "عكس 

التراجع (اعادة عمل)" باستدعاء الطريقة o0ل,لاءةه1٤"تنظيف‏ التراجع"والتي تنظف ءإهfگناط‏ ملصدا منطقة التراجع 
للأد اة.وستعمل على استدعاء هذه الطريقة من ضمن معالج حدث الأمر تراجع لمنع من ان تصبح عملية التراجع عكس 
التراجع 0ل٠ع.‏ في معظم الحالات ستمنح المستخدم خيار عملية عكس التراجع 0ل٠ءاو‏ اعادة عمل وخاصة كون عملية 
التراجع يمكن ان تعمل على حذف كمية هائلة من النص للأداة. 


الآن بعد ان انتهينا من اداة صندوق النص إليك التدريب التالي: 
مشروع lاlفSرة The TextPad Project‏ 
تطبيق المفكرة يوضح معظم خاصيات اداة صندوق النص وطرقها التي تم شرحها حتى الآن.فالمفكرة هي محرر نصوص أساسي 
تستطيع ان تضمنه في برامجك,وتخصصه من اجل تطبيقات محددة. 
افتح مشروع جديد وه "قارئة النصوص" وعند فتح الفورم اعد تسمية الفورم من خلال خاصية النص خ×ه1 الى 
"المفكرة" ضع اداة قائمة طذإخكناص۷6على الفورم ورصفها kعمك‏ الى أعلى الفورم ,ومن ثم ضع اداة صندوق نص على 
الفورم»ءوضع في خاصية الاسم البر نجي عصةہ "ءهdit٤خ×tخ‏ " ومن ثم اعمل على إعداد الخاصيات انلتlلية: Multiline‏ 
t0 "rue‏ خاصية تعدد الأسطر الى صح0 ٥خ‏ طخوnمعاMax‏ وخاصية الطول الاعظمي الى صفر(لتحرير مستندات النصوص 
وبأي طول) »ھ۴215 0غ HideSelection‏ وخاصية إخفاء الاختيار الى خطأ(حيث ان النص المختار سيبقى بارزا 
عندما لا يكون التركيز على الفورم الرئيسي) :11ذ۴ هخ عمط واخيرا خاصية الترصيف الى ملء ( ما يؤدي الى ان اداة 
صندوق النص ستملئى الفورم). 
pنإMenuSt‏ شريط القوائم للفورم يحتوي على جميع الأوامر التي تتوقع إجادها في تطبيق محرر نصوص وتم جدولتها في 
الجحدول التالي: 
FILE Ja‏ 
حفظ النص باسم جديد للملف على القرص 
تحریر E951۲‏ من اجل التراجع عن عملية /وإعادة عمل ما تيم التراجع عنه 
Cory‏ تسخ فسخ النص المختار الى الحافظة 
PASTE‏ اصق 
SPECT ALL‏ اخار الكل 
FD & REPLACE‏ إياد واستبدال 
PROCESS ilan‏ تحويل النص المختار الى حالة الأحرف الكبيرة 
تحويل النص المختار الى حالة الأحرف الصغيرة 
RUMBER LINES‏ رم الاسر 
تنسیق ۴0۸۸۲ 
PAGE COLOR‏ لون الصفحة وضع لون الصفحة من خلال لون خلفية الأداة 
XT COLOR‏ لون ادص 
اعمل على إعداد واجهة المستخدم لتصبح مشابهة للاشكال التالية: 


تحير معالجة تنسبق 
جديد ‏ للع | 
فح ctrl+O‏ 
حفظ Ltrl+5‏ 


LErl+P طباعة‎ 


Alt+F4 جروج‎ 


اه المغكرة ااا اعا 
مف | تحير] معالجة تنسيق 
تراجعاعکس التراجح 2٣ا۲٤‏ 
نسح LErlHE‏ 
CErl+# 0‏ 
لصق trl‏ 
اختيار التل ت+Ltrl‏ 


ايجاذ واستبذال Ltrl+F‏ 


اکا اکا 


حول الحروف الم تبيغ اا+ااا 


حول الحخروف الى صخيرة ٣اا‏ 


ترقيم الاسطر 


۴ 
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DirectorySearcher * ا||‎ 
Eê Pending checkins | E lImmediate Winda | 


Ready 
ضع الادوات التالية على الفورم:اداة حوار الخط 1وD0i2a10غFon و أداة حوار اللون:20:a1091إ1o0ەc€ بالاضافة الى‎ 
اداة القوائم1مطذعإخكMenu وهذه الادوات الثلاث ستظهر في صينية محرر الكود أي أسفل الفورم كما هو مبين في‎ 
الشكل الأعلى ,بالنسبة لأداة القوائم ضع فيها القوائم الموضحة في الاشكال السابقة والجدول السابق أما‎ 
بالنسبة لمفاتيح الاختصار تستطيع اعدادها كما هي موضحة في الاشكال من خلال خاصية إعkخuء†إهhطsنفي نافذة‎ 
الخصائص حيث تحدد كل واحدة من القوائم الفرعية ومن ثم ومن خلال هذه الخاصية تعمل على تحديد المفتاح الذي‎ 
تراه مناسبا مع احد المفاتيح الرئيسية إما 1عخء اوخلج اوخگذطء .هذا بالإضافة الى ضرورة جعل الخاصيات‎ 
righttolifئخ=yes‎ iیصاlخ: التالية الإضافية للفورمات التي تكتب فيها باللغة العربية‎ 
وخاصية ueءإtخ=tخt1ayou£iاightto1ع وذلك ليكون تخطيط الفورم من اليمين الى اليسار والكتابة ايضا تبدأً من‎ 
اليمين الى اليسار وكما هو موضح في الاشكال السابقة حيث ان تخطيط الفورم من اليمين الى اليسار والنصوص والماء‎ 
الادوات كلها باللغة العربية.بقية خطوة أخرى عليك عملها ألا وهي إضافة فورم جديدة الى المشروع من قائمة‎ 
ومن صندوق حوار إضافة بند الذي سيظهر لك‎ add windows ه٤" مشروع tعءمزهإم اختار إضافة فورم ويندوز‎ 
اعد تسمية الفورم الى إيجاد واستبدال كما هو مبين في الشكل التالي:‎ 


Add New Item - قارك النصوص‎ Ê 
Lategories: Templates: E ا‎ 
4 ommon Items Yisual Studio installed templates = 
Lode 
Data vi 1 = r 1 8) 
Tama 1= > B8 
General إا کے‎ 2 E 5 
web About Box lass Llass Diagram Lode File ZOM Zlass 
Windows Forms 
Reporting 
workflow =1 Ef 9 î 
WPF 4 اڪ آ2‎ 
Lormpaonent Lustom DataSet Dialog Explorer Farr 
lass Lantral 
4 <-3 
21) ف ك‎ lg 
Interface JSeript Fila LING to SAL Local Larcal 


lasses Database Datab... w 
û blank Windows Form 


ب ایجاد اسعغبخالم Name:‏ 


الآن وبعد أن عملت على إضافة فورم ثانية الى المشروع من خاصية الاسم البرمجي عمصةد في نافذة الخصائص اعد تسمية 
الفورم الثانية الى dQصذگصعگوضع‏ عليها أربعة أدوات زر واداتي عنوان وصندوقي نص وأداة صندوق 
اختيار ×oطkععمطع‏ اعد تسمية هذه الادوات من خلال خاصية النص الى ما يبينه الشكل التالى: 


تجسس حالة الأحرف 


إذا كانت بعض الامور غيرمفهومة بالنسبة لك فلا تقلق ساعمل هنا على شرح الكود وتبقى بعض الامور سيتم شرحها 
في وقتها ان شاء الله. 
إليك جدول القوائم والمائها البرمجية (عسة"ص) التي سأستخدمها هنا: 


الاد اةواسم ال ا×هtخ‏ (خاصية النص) الاسم البرجي عسةدص المسخدم في الكود 
ملف(قائمة رئيسية) file‏ 

جديد (قائمة فرعية من قائمة ملف) filenew‏ 

فتح (قائمة فرعية من قائمة ملف) fileopen‏ 

حفظ (قائمة فرعية من قائمة ملف) filesave‏ 

حفظ ك(قائمة فرعية من قائمة ملف) fileas‏ 

طا عة (قائمة. قرعبة من قاتمة ملف) filep‏ 

خروج (قائمة فرعية من قائمة ملف) fileexit‏ 
تحرير(قائمة رئيسية) edit‏ 

تراجع /عكس التراجع (قائمة فرعية من تحرير) editundo‏ 

نسخ (قائمة فرعية من قائمة تحرير) editcopy‏ 

ق (قائمة قرعبة من قتانمة جرير) editcut‏ 

لصق (قائمة فرعية من قائمة تحرير) editpaste‏ 
الختيار الكل(قائمة فرفية من قائمة تحرير) edita11l‏ 

إيجاد استبدال (قائمة فرعية من قائمة تحرير) editfind‏ 
معالجة (قائمة رئيسية) process‏ 

حول الحروف الى كبيرة (فرعية من قائمة معالجة) processup‏ 

حول الحروف الى صغيرة (فرعية من قائمة معالجة) processlow‏ 
ترقيم الأسطر (قائمة فرعية من قائمة معالحة) processnumber‏ 
تنسيق (قائمة رئيسية) format‏ 

الخط (قائمة فرعية من قائمة تنسيق) formatfont‏ 
لون الصفحة (قائمة فرعية من قائمة تنسيق) formatcolorpage‏ 
لون النص(قائمة فرعية من قائمة تنسيق) formatcolortxt‏ 
التفاف/عدم الالتفاف(قائمة فرعية من قائمة تiنسيق(‏ طformatwordwrFa‏ 
المفكرة (الفورم الرئيسية) frmTextPad‏ 
اداة صندوق النص( t×هاالنص‏ اتركه فارغ) txteditor‏ 

اجاد واستبدال(الفورم الثانوية المضافة الى المشروع) ۸4 £۲٣۸۴1‏ 

الح عن (اد اة عتوان على الفيرم التانزي) Labe11‏ 
تنديل ب(اداة عنوان غلى القورم الثاتوى) Labe12‏ 

اداة صندوق نص(على الفورم الثانويةدع النص فارغ) txtfind‏ 
اداة صندوق نص(على الفورم الثانويةدع النص فارغ) txtreplac‏ 
اا5( 3ة ازز على القورم التانونة) btnfind‏ 
إجاذ التالي(اداة زر على الفورم الثانوية) tnfindnext‏ 
تندتل(31 ٠81‏ زز على القوزم التانونة) btnreplace‏ 
تبدمل الكل(اد3 ا3 زز على الفقورم . التانونة) btnreplaceall‏ 


تحسس حالة الأحرف(صندوق اختيار على الفورم الثانوية) Checkcasesensitive‏ 

هذه جميع الادوات مع خاصية النص والاسم البرمجي لكل منها مع القوائم التي قمت بعملها مع قوائمها الفرعية 

بقي ان انوه ان عليك جعل خاصيةحالة الاختياركەء )عمط = eمckstatمhطc‏ للقائمة الفرعية التفاف/عدم 
الالتفاف(قائمة فرعية من قائمة تنسيق) 

شى ملعك ان قشعن الدرات و ار الم كما مى مسف ن ا3فعال ااا وم عملت عاد جلا 

EBON CUS ErmMlext Edd 


Private Sub editecut Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
Edi CCU CUE k 
Clipboard. SetText (txteditor.SelectedText ) o oo 
txteditor.SelectedText = "" 
End Sub 


EEA Ce SS CO EE DE CE EKEYN SENSE AS CVSS OSCE EVOL CEES SSE EVET EAE) HONOLES 
EAS CENE CESK 


 BEOCESSDUNBEE CEKEN EVUSN Senders AS SVSEEM. OBIEEEY, BUELL E AS OVEN EVENEAEIS) HEnNIlEeS 


processnunber Click 
J1 iLine As 
ım newIText AS 1 SVSteM. lex. SE EINGEUI LAE (J) ELE EOL E ESN EE AS 

For iLine = 0 To txteditor.Lines.Length = 1 
SE ISSO ES o UY MOS Eo & OMENS & | 
txteditor.Lines (iLine) & vbCrLf) 


N 


LETHE SelectAll () 
Clipboard. SetText (newText.ToString) 
txteditor. Paste () 


Private Sub ByVal 2 ByVal As 


processup Click (ByVal sender As System.Object, al € As System. EventArgs) 


processup . Click 


txteditor.SelectedText = txteditor.SelectedText .ToUppe r ooo oD 


1D txteditor KeyPress (ByVal sender AS Object, ByVal € As System.Windows. Forms .KeyPressEventArgs) 


Handles 


: I KeyPress 
IM eh AS ChaFe 
i SWS Char.IsControl (e.KeyChar) Then 
Ci = r.ToUpper (e.KeyChar) 
ا ک2‎ 8 


se "ê" 
txteditor.SelectedText = "AT" 

CEE WW 
txteditor.SelectedText = "BPT" 

e اتا‎ 
txteditor.SelectedText = "DIR" 

E 
txteditor.SelectedText = "0/0" 

ase E 
txteditor.SelectedText = "AND" 

txteditor.SelectedText = ch 


End Selec 


Private Sub ByVal As Object, ByVal As 


End 


Vê ExledI EOE MEX EChaANISEdAKEYVSL Sender AS 
ESLE, TEEN EA 
editundo.Text = "Undo" 


ENA Sub 


2l & 2e OMSL EMS AE OE) 


ESEN COLO EXE CSEIEVUSN SENE LAS SYSTEM OBE,‏ ع 
EER Colo GEE ki‏ 
COlOEDLaALOIISEoOloOE 5 CxleGLLOL SEaGECOLOE‏ 
ColorDialog1. ShowDialog = Windows.Forms.DialogResult.OK Then‏ . 
lxltediıtor .EFOrecolor > COlOrDialogl .COLlOE‏ 


Ena IÊ 


End Sub 


Eruvea Ee SUD EOEMaEEONE CEK K(EBYUENL Senden AS SVSEeM. OBIEECE, BYUSL € AS SYSTEM. BEVENEAEGS) MHENIlES 
EOlMat LORE CE lek 
FontDialog1.ShowApply = True 
If FontDialog1l.ShowDialog = Windows. Forms.DialogResult.OK Then 
CLC OE EOD > EOD DESLE LC EOE 
End TE 
End Sub 
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الخيارات المتاحة في قائمة تحرير تعمل على تبادل النص من والى الحافظة.فمن اجل تطبيق المفكرة كل ما تحتاج 
معرفته حول الحافظة هو الطريقة اt×١٠1ه؟"ضع‏ نص" والتي تعمل على وضع نص تم اختياره حاليا في 
الحافظة ,و الطريقة tخ×٠1اهم‏ "احصل على النص" والتي تستخلص المعلومات من الحافظة 

فالأمر نسخ مثلا,يتم تنفيذه من خلال سطر وحيد من الكود(حيث ان ١هغذكعخ×غهو‏ الاسم البريجي لأداة صندوق النص) 
ونفس الشيء بالنسبة للأمر قص والذي يعمل ايضا على إزالة النص المختار والذي تم قصه(راجع الكود في القائمة 
السابقة) 

اذا ما احتوت الحافظة على تنسيق أخر غير النص (مثل صورة)من تم وضعها من تطبيق أخر او أي نوع أخر من 
البيانات فان اداة صندوق النص لا تستطيع معالجته وعملية اللصق ستفشل وهذا السبب الذي أدى بان نضع الشرط 
If‏ وبإمكانك من خلال إدخال العبارة ٥ئ1٤‏ ان تقدم للمستخدم معلومات بان البيانات في الحافظة d4٣C1ipboaل‏ 


يمكن استخدامها مع تطبيق خاص بتحرير النصوص. 


ان هذه الأوامر بسيطة,فأوامر قائمة التنسيق تفتح صناديق حوار اللون والخط وتعمل على تغير خ”«ت۴ الخط,ولونه 
ForeColor‏ , بالإضافة الى خاصية لون الخلفية ٤إماه٣)عهة8.‏ وسوف تتعلم كيف تستخدم هذه الادوات في الفصل القادم 
ان شاء اله, الأوامر تحويل الأحرف الى صغيرة وكبيرة تعمل على إسناد خاصية تحويل انلنصر lاؤزختJlر SelectedText‏ 
للأداة الى الحالة الموافقة (كبير او صغير) (راجع كود أمر تحويل حالة الأحرف الى كبير او صغير) 

لاحظ ان الكود في أمر تحويل حالة الأحرف يستخدم الخاصية t×١٠1لءc†tم1هكلتحويل‏ فقط النص الذي تم اختياره,وليس 
كامل المستند. الأمر ترقيم الأسطر يعمل على إدخال أرقام الأسطر أمام كل سطر من النص ويوضح كيفية معالحة كل 
سطر من النص بشكل مستقل ,ولكنه لا يعمل على رقم الأسطر ولم نعمل على عمل آلية لمنع المستخدم من تحديث ترقيم 
الأسطر او إدخال/حذف الترقيم للأسطر بعد ان يتم ترقيمها مرة,فاستخدم هذه الميزة لترقيم الأسطر فقط قبل ان 
تعمل على حفظ النص.لاحظ ان معاج حدث ترقيم الأسطر يستخدم المتغير من نوع الكائن :عل1ذ98uومذإخS»حيث‏ ان 
الفئة sعةا1عc‏ ءمBui1dيinعStك"باني‏ النصوص" مكافئة لفئة النصوص كعةاعء و«صذعخك؟ وتعرض نفس الطرق 
والخصائص,ولكنها أسرع في معالحة النصوص الديناميكية من فئة النصوص 


الخيار ا لأخبر و الأكثر مية في قائمة تحرير يعرض صندوق حوار "إيجاد واستبدال"(او يعرض الفورم الثانوية التي 
عملنا على إضافتها المشروع) وصندوق الحوار هذا يعمل بطريقة ماثلة لصناديق الحوار التي تراها في 
التطبيقات الأخر مثل الورد او أي تطبيق ويندوز أخر. الأزرار في صندوق الحوار"إيجاد واستبدال" تفسر نفسها 
تقريبا self-explanatory‏ 
الأمر" إيجاد" يعمل على إيجاد النسخة الأولى من النص الحدد في النص بعد موضع المشيرة.وإذا ما تم إيجاد أكثر من 
نسخة فان الأزرار "إيجاد التالي" و"تبديل ب" و"تبديل الكل" سيتم تفعيلها. 
اعمل على تصميم الفورم الثانية كما تظهره الأشكال السابقة,واعمل على إعداد الخاصية خكهلطه٣‏ الى صح فنحن 
نريد من الفورم الثانية ان تبقي أمام الفورم الرئيسية,حتى ولو لم يكن التركيز عليها.بالاعتماد على صندوق 
الاختبار لحالة الأحرف فانه سيتم تحديد نوعية البحث هل سيتم في حالة مرذخزذئ«مSك‏ مcas‏ الحساسية للأحرف أم لا 
:لاحظ صندوق الاختبار الذي عملنا على إضافته في أسفل الزاوية اليمينية وتم تسميته من خلال خاصية النص الى" 
تحسس حالة الأحرف". 
في فورم او صندوق حوار "إيجاد واستبدال" اذا ما تم إيجاد النص المنشود في نص اداة صندوق النص للفورم 
الرئيسية فان البرنامج يعمل على إبرازه من خلال اختياره,بالإضافة الى ان البرنامج يعمل على استدعاء 
طريقة صندوق النص "Scro11r0Caret‏ انزلق الى العلامة" لجلب الاختيار الى شاشة العرض.وزر "إيجاد التالي"يأخذ 
بعين الاعتبار موضع المؤشر ويبحث عن المطابقة بعد الموضع الحالي.فقإذا ما حرك المستخدم المؤشرز الى مكان أخر ومن 
ثم ضغط زر" إيجاد التالي"فان البرنامج سيجد النسخة الأولى من النص بعد الموقع الحالي للمؤشرءهخ«ذهم ,وليس بعد 
المطابقة الأخيرة وبالطبع تستطيع دائما ان تحتفظ بمسار الإيجاد بالنسبة لكل عملية مطابقة ومن ثم تستمر بالبحث 
من هذا الموضع .إليك كود الفورم الثانية كاملا 
Public Class frmfind‏ 
ار تل الكل مت اا م التحسس لحالة الأحرف' 
E FEE EEN HN EE EES IS‏ ل حا ارف لال ال حن كل مت وس اا :0 
E‏ کا ا ر ا اہ کے )ع اکاک ا ماک ی اک که ١‏ 
assاc String‏ التابعة لفئة النصوص مءد1اعممR‏ التبديل ' 


Private Sub btnfindnext_ Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles btnfindnext.Click 
Dim selStart As Integer 
Dim srchMode As Microsoft.VisualBasic.CompareMethod 
If Checkcasesensitive.Checked = True Then 
srchMode = Microsoft. VisualBasic. CompareMethod. Binary 
Else 
srchMode = Microsoft.VisualBasic. CompareMethod. Text 
End If 
SE E OT EST BB OET DEES TT OT EET SAE EBT DEES ET CSO ETE 
If Checkcasesensitive.Checked = True Then 
selStart = frmTextPad. txteditor. Text. IndexOf (txtfind. Text, 
frmTextPad. txteditor. SelectionStart + 1, StringComparison.Ordinal) 
Else 
selStart = frmTextPad. txteditor. Text. IndexOf (txtfind. Text, 
frmTextPad. txteditor. SelectionStart + 1, StringComparison.OrdinalIgnoreCase) 
End If 
If selStart = -1 Then 
MsgBox ("No more matches") 
Exit Sub 
End If 
frmTextPad. txteditor. Select (selStart, txtfind.Text. Length) 
frmTextPad. txteditor. ScrollToCaret () 
End Sub 


Private Sub btnreplaceall_ Click (ByVal sender As System.Object, ByVal e As System. EventArgs) 
Handles btnreplaceall.Click 

Dim curPos, curSel As Integer 
حفظ مسار الاختيار الحالي'‎ 
وتخزينه بعد عملية التبديل'‎ 

curPos = frmTextPad. txteditor.SelectionStart 

curSel = frmTextPad. txteditor.SelectionLength 

frmTextPad. txteditor. Text = _ 

frmTextPad. txteditor. Text. Replace (txtfind.Text. Trim, txtreplace. Text. Trim) 

ال اجار الال 

frmTextPad. txteditor. SelectionStart = curPos 

frmTextPad. txteditor. SelectionLength = curSel 

End Sub 


Private Sub txtreplace TextChanged (ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles txtreplace. TextChanged 
If txtreplace.Text.Length > 0 Then 
btnreplace.Enabled = True 
btnreplaceall.Enabled = True 
Else 
btnreplace.Enabled = False 
btnreplaceall .Enabled = False 
End If 
End Sub 


End Class 


يتفحص هذا الأمر قيمة اداة صندوق الاختبارة 6۸66۸35656۸511۷[ و التي تحدد فيم اذا سيكون البحث مع التحسس 
لحالة الأحرف ويستدعي النموذج المناسب لطريقة الفهرس 0۴×هل"م1, المعامل الأول لهذه الطريقة هو النص الذي 
نبحث عنه,والمعامل النسي الثاني هو موديل البحث مdلمصطءعإةهء‏ وقيمته عضو في العداد"مقارنة النصوص" 
String eomparison‏ :فالنظامي 1ھnذdع٥‏ من اجل >حJlلة‏ lاãlتzaسس case-sensitive‏ و OrdinalIgnoreCase‏ >lلã‏ 
تجاهل النظامي من اجل عمليات البحث الغير حساسة لحالة الأحرف.فإذا ما وجدت الطريقة 0۴×هك"م1النص فان 
البرنامج يختاره باستدعاء طريقة الأداة "اختيار" مع المعاملات النسبية المناسبة و اذا لم تجد النص فإنها تعرض 
رسالة.لاحظ انه بعد نجاح عملية الإيجاد ان الأزرار على الفورم الثانوية تصبح فعالة.وكود زر" إيجاد التالي" 
مشابه تماما ولكن يبدأ البحث عند الحرف الذي يلي الاختيار الحالي,فالطريقة تعمل على إيجاد النسخة الثانية 
من نفس النص(راجع الكود) 
أما الزر "تبديل ب" فيعمل على استبدال الاختيار الحالي بنص الاستبدال ومن ثم يعمل على إيجاد النسخة 
الثانية من نص الإيجاد. اما الزر "تبديل الكل" فانه يعمل على تبديل جميع نسخ كلمة البحث في المستند, (راجع 
الكود) 
الطريقة مءمءة1ععR‏ "تبديل" حساسة لحالة الأحرف مرذخذئصمء-مsهc‏ وهذا يعني انها تستبدل نسخ معامل النسي للبحث 
في النص الذي لديه نفس التهجئة ويدذا1اهطء كما في معامله النسي الأول ,من اجل البحث الغير حساس لحالة الأحرف 
عليك كتابة الكود. بشكل اختياري بإمكانك استخدام وظيفة الاستبدال الجاهزة لإتمام عمليات البحث غير لحساسة 
لحالة الأحرفهvذخiزs«هnsز-مsمcع‏ كما هو مبين في الكود التالي: 

Replace (frmTextPad. txteditor. Text, txtfind.Text.Trim, txtreplace.Text.Trim, , , CompareMethod. Text) 
المعامل النسي الأخبر والذي هو اختياري يحدد فيم اذا البحث سيكون ءرذخذكئ,«مء-مsهء حساس (مقارنة ثنائية‎ 
(CompareMethod. Text ةڍصڏصi‎ ةiرlزتn)سlw>‎ رjıé‎ case-insensitive gy| (CompareMethod. Binary 
الأمر تراجع يتم تنفيذه مع استدعاء الطريقة تراجع0لك” 0ل ولان الطريقة 0ل صتاتعمل كعقدة تبديل أو تمفصل‎ 
علينا أيضا أن جعل «٥ذاطةعنوانها عقدة تمفصل من تراجع إلى عكس التراجع (والعكس بالعكس) في كل يتم‎ toوواe‎ 
فيها تفعيل هذا الأمر.‎ 
إذا حررت النص بعد عملية تراجع فلا تستطيع أن تعكس آخر عملية تراجع وهذا يعني انه حالما يتغير المحتوى‎ 
لصنكوق النص فان عنوان أمر "التراجع وعكس التراجع" يب أن يصبح "تر اجع" حتى ولو كان في الوقت المعني عكس‎ 
التراجع . الأمر عكس التراجع متاح فقط بعد عملية تراجع وقبل تحرير النص لذا كيف سنعرف انه تم تحرير النص؟‎ 
تطلق أداة صندوق ×80غ×٠1النص الحدث 4ءوn«هطZ٣tغ×عاآن كل مرة يتغير محتواها.سنستخدم هذا الحدث لإعادة تخزين‎ 
العنوان «٥0ذاطةعللأمر "تراجع/عكس التراجعەلdمndo/R€ا" إل تراجع"oلnصل "(راجع الكود)‎ 
أداة صندوق النص لا تستطيع أن تزودك بالكثير من عمليات التراجعءفهي بهذا تختلف عن برنامج الورد الذي يحفظ‎ 
مسار أفعال المستخدم (مثل الإدخال»ءالحذف »عمليات التبديل وهكذا )ومن ثم فانه من الممكن التراجع عنها بجخطوات‎ 
فإذا كنت تريد عمليات تراجع أكثر استخدم أداة ×80غ×١1طعذ۸صندوق النص الغني »باستطاعة هذه الأداة أن‎ 
تعرض النصوص المنسقة بالإضافة إلى إمكانية استخدامها كأداة صندوق نص متطور,على فكرة العمل على إعداد‎ 
مبالغة لان هذا‎ gÎ overkill عنوان احد بنود القائمة من ضمن الحدث 4عو”ةط٣خx×٠1"تغير النص" فيها إسراف‎ 
الحدث يحدث في كل مرة يضغط فيها المستخدم على مفتاح,ولكن العملية لا تستهلك وقت إطلاقاء ولا تفقِد التطبيق‎ 
edit item ةaأilقڙãلlا لأحد بنود‎ DropDownOpening ثİدZ> سرعة الاستجابةه7ذكئ«تمكهع .الاختيار الأفضل سيكون ال‎ 
الذي سيتم إطلاقه في كل مرة يفتح فيها المستخدم قائمة التحرير.‎ 


لأد اة صندوق النص حدث مفرد وميز وهو الحدث dمو«ةطZ٤غ×ه1"تغير‏ النص" والذي يتم إطلاقه كل مرة يتم تغير نص 
الأد اة إما بسبب عمل المستخدم على كتابة حروف أو عملية اللصق يوجد حدث آخر مشترك في برمجة أداة صندوق النص 
وهو الحدث كك٠إ٥۲رم۸"كبس‏ مفتاح" والذي يحدث كل مرة يتم فيها ضغط مفتاح ما ويثبت(يبلغ) حرف المفتاح الذي 
تم ضغطه .تستطيع استخدام هذا الحدث لالتقاط مفاتيح محددة وتعديل سلوك البرنامج بالاعتماد على الحرف الذي تمت 
كتابته. 

على فرض انك تريد استخدام تطبيق المفكرة لتحضير رسائل ليتم إرسالها عير خط الفاكس ×م1عهاوكما تعلم الفاكس 
لا يستطيع إرسال الحروف الصغيرة أو الرموز الخاصة فعلى الحرر أن يحول النص إلى الحالة الكبير للحروف ويستبدل 
الرموز الخاصة بالنصوص المكافثئة لها:21R‏ من اجل 4و ت٣همن‏ اجل و 0/0 من اجل* و ١8۲من‏ اجل #و له من اجل 
&.تستطيع أن تعدل السلوك الافتراضي لأداة صندوق النص من ضمن الحدث 5٠ء۲‏ ره×بجيث يعمل على تحويل هذه الحروف 
كما كتبها المستخدم. 

من خلال التقاط كبس المفاتيح,تستطيع أن تعالج البيانات كما تمت عملية إدخالها, في الوقت الحقيقي,مثلا تستطيع 
التأكد من أن صندوق النص يقبل فقط قيم عددية أو الرموز الست عشرية كإم†acةإمطc‏ exadecima1ط‏ وترفض ما 
عدا ذلك,لمعالجحة محرر ما لتحضير نص من اجل «0nذكئئذصئصمةعخ‏ النقل عبر الفاكس, استخدم معاجۍج‡چ عحzدذث KeyPress‏ 
"كبس الزر" كما هو موضح في الكود(راجع الكود) 

تختبر الجملة الأولى في معاج حدث"كبس المفتاح" المفتاح الذي تم ضغطه وتخرج إذا كان هذا المفتاح مفتاح تحرير 

خاص (حذفەt (e1٥‏ ,تراجع خطوةBackspace‏ , 1+۷ءإet‏ وهكذا) في هذه الحالة يجرج معاج الحدث دون أن يقوم بأي 

فعل, الخاصية :ءهةط٣رإم×‏ للمعامل النسي م لحدث كك٠ءإ۶رم×"كبس‏ المفتاح" تثبت أو (تعمل على تبليغ) المفتاح الذي 
تم ضغطه ,ويعمل الكود على تحويله إلى نص ومن ثم يستخدم عبارة هه الحالة لمعالجة المفاتيح المكبوسة بشكل 
مستقل. إذا كبس المستخدم المتاح $ مثلا فان الكود سيعرض 51 و إذا لم يتم كبس رمز خاص فان الكود يعرض 
الحروف المكبوسة كما هي من خلال شرط الحالة ه۴15لعبارة الاختيار 


توجد ميزة مشتركة أخرى في تطبيق "قارئ النصوص" وهي إسناد عمليات خاصة إلى مفاتيح الوظائف.تطبيق المفكرة في 


به هذه الأحداث عن حدث كبس المفتاح هو أن هذان الحدثان لا يثبتان الحرف الذي تم ضغطه,فبدلا من ذلك يثبتان 
كود المفتاح(العدد الخاص الذي مميز كل مفتاح على لوحة المفاتيح ويعرف أيضا بكود مdهع”مةءء‏ التفحص) من خلال 
Èlێ>ۍۈlاصıة .e.KeyCode‏ 

كود المفتاح keycode‏ ميز مueوذصتابالنسبة‏ لكل مفتاح وليس لكل حرف,فالحروف في الحالة الكبيرة والحالة الصغيرة 
لكل منها قيم أسكي 11٤8هحتلفة‏ ولكن لها نفس كود المفتاح لأنها على نفس المفتاح,مثلا العدد 4 والرمز $ لهما 
نفس كود المفتاح لأن نفس المفتاح في لوحة المفاتيح ينتج هذين الحرفين.عندما يتم تثبيت كود المفتاح فان الحدثين 
KeyDownو‏ مpلاKeyيثبتان‏ أيضا حالة مفتاح الرفع خ۴ذطك أو 1ءإt‏ و اtلهمن‏ خلال الخاصيات غ۴ذطك؟.e‏ و 
e.A1ltوontrol€.e‏ .معاجخ الحدث صطلارعKالمبين‏ في الكود يستخدم مفاتيح الوظائف ۴۳5و ۳6لإدخال التاريخ الحالي 
والوقت في المستند.ويستخدم أيضا ۴۳7و ۴۳8لإدخال نصوص معرفة مسبقا في المستند. 

يستخدم الويندوز العديد من مفاتيح الوظائف (مثلا المفتاح 1آ٣للتعليمات‏ أو المساعدة)ولن تعمل على تعديل 
وظائفها الأصلية.مع القليل من الجهد تستطيع أن تعمل على تزويد المستخدم بصندوق حوار والذي يدع المستخدم 
من إسناد النصوص الخاصة به إلى مفاتيح الوظائف,من المحتمل أن تأخذ بعين الاعتبار حالة الرفع خf#ذطك‏ أو 
1إ التحكم أو 1tه4التحويل‏ على التسلسل لتستكشف فيما إذا سيتم ضغط مفاتيح التعديل هذه nodifier keys‏ 
مع مفتاح آخر.استخدم المعامل 0ه مع الخاصية المناسبة للمعامل النسي .٠‏ 


احد إعدادات خاصية الإدخال لأداة صندوق النص هي خاصيات الإكمال التلقائي(الآلي) هل لاحظت كيف يعمل مستكشف 
الانترنت على إرشادك حالما تبدأً بكتابة عنوان ما في صندوق نص اسم المستخدم ( أو في شريط عنوان المستعرض) 
تستطيع بسهولة أن تعامج مثل هذه الصناديق باستخدام أداة صندوق نص ذات سطر واحد وخواص الإكمال 
التلقائي.بشكل أساسي عليك أن تبر أداة صندوق النص كيف عليها الطلب من المستخدم من خلال نصوص مطابقة 
الأحرف المكتوبة مسبقا الأد اة ومن أين ستأتي عملية المطابقة ومن ثم فان باستطاعة الأداة عرض قائمة 
منسدلة بالنصوص التي تبدا بالحروف التي تمت كتابتها حاليا بواسطة المستخدم»وبإمكان المستخدم إما الاستمرار في 
الكتابة(في هذه الحالة قائمة الخيارات تصبح اقصر) أو يحتار بند من القائمة ,يتم تطبيق خاصيات الإكمال 
التلقائي بالنسبة لأدوات صندوق النص ذات السطر المفرد فقط فهي لا تؤثر في أدوات صناديق النصوص المتعددة 
الاسطر. 

في عدة حالات ,الإكمال التلقائي لأداة صندوق النص أكثر فعالية من أداة ×80ه0طصهحع الصندوق المركب وسوف تفضل 
أداة صندوق النص وسترى أن أداة الصندوق المركب تدعم أيضا خاصيات الإكمال التلقائي,لأنها تجعل الأداة سهلة 
الاستعمال وباستخدام لوحة المفاتيح فقط.تحدد الخاصية ءلM0dءcomp1et€Auto‏ "صيغة الإكمال التلقائي" الماهية 
والكيفية التي سيتم من خلالها سؤال المستخدم, و إعداداتها عضو في عداد "صيغة الإكمال التلقائي 

Autosuggest)" AutoCompleteMode enumeration‏ الاقتراح التلقائي ك”eممAutoA‏ ,الإلحاق الآلي 

AutoAppend mode ةغıص ( Noneءqaû ly, AutoSuggestAppend dJîJ| حIرjîقالlو قJقlZ>ۈێllلاl ,AutoAppend‏ الإلحاق تختار 
أداة صندوق النص بند المطابقة الأول في قائمة الاقتراحات وتكمل النص. في صيغة AutosuggestAppend mode‏ 
"الإلحاق والاقتراح الآلي" تقترح الأداة بند المطابقة الأول في القائمة كما سبق ولكنها توسع القائمة في صيغة 
الاقتراح الآليمodص‏ خgesوAutoSug‏ , تفتح الأداة بكل بساطة القائمة مع البنود الموافقة ولكن لا تختار أي بند. 
لأدو ات صناديق النص النظامية يتم وضع خاصية صيغة الإكمال التلقائي AutoCompleteModeإd‏ خطاً (ه۴21s)‏ وتخحدد 
خاصية مصدر الإكمال التلقائي ءcإuهS؟ەt†ءمutoezomp1ه‏ من أين تأتي قائمة الاقتراحات وقيمتها عضو في عداد مصدر 
الإكمال التلقائي eءcإeteSo0uامAutocompالمبن‏ في الحدول التالي: 


مصادر #يğعg‏ lا)îنۆظAl1systemSourcesin‏ المقترحة هي أساء مصادر النظام 


مصدرڙر #ۈصص CustomSourCcCe‏ البنود المقترحة تأتي من مجمع خخصص”onہcol11ecti custom‏ 


۰ 


قائمة 8 3ت llؤjkقةHistoryListã‏ ( E‏ بنود EEE‏ من قائمة إ٣هخئتط‏ تارد 2 لكمبيوتر 


هه ماف 


لا يوجد الآداة لا تقترح اي بند 

لتوضيح خصائص الإكمال التلقائي سنقوم بعمل تدريب,وهذا التدريب ممنحك إمكانية إعداد صيغة الإكمال 
التلقائي والمصدر من اجل أداة صندوق نص وحيد السطر فصندوق النص الأعلى يستخدم قائمة كلمات حخصصة ينما 
الصندوق الأدف يستخدم مصادر معد مسبقا(جاهزة) (ملفات نظام"هخكرء م۴1 ,عناوين انترنت RS‏ ,وهكذا) 


صمم واجهة المستخدم لتصبح مشابهة للشكل المعروض ضع عليه الأدوات المبينة فى الشكل ولا تنسى كما ذكرنا سابقا 
أن تجعل خصائص الفورم من اليمين إلى اليسار صحيحة من اجل الواجهة العربية بالنسبة لأزرار التبديل اجعل 
خاصية ueإecked=†tطc‏ بالنسبة "لعناوين الانترنت"و"اقتراح "وكما هو مبين في الشكل 


ا 


3 


CAN‏ اقتراح والحاق 


اا 


٣ ٠ 
ا ت سا ور د‎ ۲ 


TTT REE, ازرار ٹہ‎ db ut ton 


إليك الكود كاملا لاحظ أن الاسم البرججي لكل أداة يعبر عن نفسه إذا أردت غير الأساء البرججية لأدواتك كما هي 
مبينة في الكود التالي 


Public Class autocomplete 


Private Sub rbNone CheckedChanged (ByVal sender As System.Object, ByVal e As System.EventArgs) 
1 RR الحخز اع معاة ت احنتت ور و د ا دار ال الاك ا‎ 
If rbNone.Checked Then 
TextBoxl1.AutoCompleteMode = AutoCompleteMode. None 
TextBox2.AutoCompleteMode = AutoCompleteMode. None 
ا‎ 
If rbAppend.Checked Then 
TextBox1.AutoCompleteMode = AutoCompleteMode. Append 
TextBox2.AutoCompleteMode = AutoCompleteMode. Append 
e 
If rbSuggest.Checked Then 
TextBoxl1.AutoCompleteMode = AutoCompleteMode. Suggest 
TextBox2.AutoCompleteMode = AutoCompleteMode. Suggest 
End UE 
If rbSuggestAppend. Checked Then 
TextBoxl1.AutoCompleteMode = AutoCompleteMode. SuggestAppend 
TextBox2.AutoCompleteMode = AutoCompleteMode. SuggestAppend 
ERE ME 


End SUS 


nutcconpieteSusefe ESSE 


ENG Class 
بعد أن تكمل تصميم الواجهة وبعد أن تدخل الكود سيظهر لك تنفيذ البرنامج الخيارات التالية في صندوق النص‎ 
7 العلوي بعد كتابة الحرف‎ 


آ4 الاتعام الآلي لصنانيق النصوص 


ادخل اسم اللقة 


Visual Basic 
Visual Basic .NET 
Visual Basic 6 

Visual Basic Orcas‏ عة 


9 عناصن اقترتت © قاتمة حديثة 0 © اقراح والحاق 


اعدادات صيغة الاكمال التلقائي يتم تطبيقها على صتدوقي التص بينما اعدادات 
مصدر الاكمال. التلقائى تم تطبيقها على صتدوق التص التي بالاسقل 


وإذا كتبت ط في الصندوق السفلي سيظهر لك ما هو مبين في الشكل التالي 
اة الاتعام الآلي لصناتيق النصوصس 


© اقراح والحاق 


اعدادات صيقة الاكمال التلقائى يتم تطبيقها على صتدوقى التص بيتها اعدادات 
مصدر الاكمال التلقائى يتم تطييقها على صتدوق التص الني بالاسقال 


إذا وضعت " rceإeteSouاAutocomp‏ مصدر الإكمال التلقائي" CcustomSource‏ " مصدر مخصص" عليك أن تعمل على ملىئ 
الكائن tionخeteStringco11ecاcompı Auto‏ بالاقتراحات المرغوبة وتعمل على إسناده إلى الخاصية 

tomSource‏ eteCusاAutocomp1‏ . المجمع هو مجرد مجموعة من النصوص كما يظهر حدث تحميل الفورم حيث عملنا على 
إعداد هذا المجمع وملأناه بلغات البرمجة واستخدمناه مع صندوق النص الأول. 

Data-Entry Applications: ةÃۈظړحiln‎ 

تحوي التطبيقات العملية النموذجية على عدد هائل من الفورمات لإدخال البيانات والعنصر الأكثر أمية من اجل 
إدخال البيانات هو أداة صندوق النص,وعمليات الإدخال للبيانات فعالة جدا باستخدام لوحة المفاتيح ويب 
التمكن من استخدام تطبيقاتك بدون اللجوء إلى الفارة .عمليات إدخال البيانات المختلطة لا يكتب لها 
الاستمرارية بدون المفتاح إءا١×‏ وتستطيع الوصول إلى هذا المفتاح عند نهاية كل عملية,فالواجهة الفعالة يب 
أن تعمل على إضافة بعض الذكاء إلى "عمهإخئرمk‏ كبس المفتاح": أي أن المفتاح ١إءا”عجب‏ أن يتم انجازه بوضوح 
أو بطريقة مماثلة لوظائفه التي يعرفها كلنا.عندما تعمل على إدخال بيانات مثلا يحب أن تأخذ المستخدم إلى 
الأداة التالية وحسب ترتيب التاب إعلإه طة1(مفتاح التاب) .اعتير نافذة إدخال بيانات مثل في الشكل 
التالي,والتي تحتوي على العديد من أدوات صندوق النص,و أداة إc)e¡ذ۲ء1imهtهD‏ "التقاط الوقت والتاريخ 
"DatarimePicker‏ من اجل إدخال التواريخ, وأداتي >×K80ءءط)صندوق‏ اختبار هذه هي الفورم الرئيسية لإدخال 
بيانات بسيطة (صمم الفورم كما هو مبين في الشكل التالي وهي عملية بسيطة جدا) 


٣رایخ خیارا‎ O 


فحل سذء الخاصية لiأjر» KeyPreview True‏ 


يستخدم التطبيق مفتاح الإدخال إما”«ع:كل مرة يتم الضغط على مفتاح الإدخال إما«ع ينتقل التركيز كuاعت؟إلى‏ 
الأداة التالية في ترتيب مفتاح التاب 0طةاحتى ولو كانت الأداة الحالية هي أداة صندوق اختبار×80)ءche‏ 

»فعملية " ءkتإائرمk‏ كبس المفتاح" لا تغير حالة أدوات صندوق الاختبار بل ببساطة تنقل التركيز إلى الأمام. 
تستطيع بريحجة الحدث طارءآلكل أداة من اجل التفاعل مع مفتاح الإدخالإه‌‌t٬ع‏ ,ولكن هذه المقاربة 1عههإصمa‏ 
يمكن أن تقود إلى مشاكل في الصيانة إذا كنت مخطط لإضافة أدوات جديدة إلى فورم موجود.فالمقاربة الأفضل هي 

اعتر اض زintercepسبيلJ‏ keystrokeکبس‏ مفتاح "على مستوى الفورم قبل أن يصل إلى الأداة,. لفعل هذا 
يتوجب عليك وضع الخاصية «٠ءذ۷ا٠ءإ۲رهK×"عرض‏ المفتاح مسبقا" للفورم إلى صح وهذا الإعداد يسبب في إطلاق أحداث 


المفاتيح على مستوى الفورم أولا ومن ثم للأداة التي يكون التركيز عليها. في الحقيقة تمنحك هذه الخاصية إمكانية 
معالحة " sعk)إtاsرهk‏ كبس مفاتيح"للعديد من الأدوات في نفس الوقت. معالج الحدث مار التطبيق إدخال البيانات 
للفورم الرئيسية وعلى مستوى هذه الفورم يعترض كبس زر الإدخال ويتفاعل معه بنقل التركيز إلى الأداة التالية 
في ترتيب التاب بدعم الطريقة رعء)طةss1عcعهء‏ .هذه الطريقة sءاه1ناصذوءتحاكي‏ معالحة مفتاح التنقل"رم»k‏ طaآ‏ 
التاب" ويتم استدعاءها من خلال معامل نسي وحيد,والذي هو قيمة ١٥8001منطقية‏ :صح :نقل التركيز إلى الأمام 
وخطأ :نقل التركيز إلى الخلف: إليك كود المشروع كاملا: 


BPUbIIE Class Eom 


Evatt OS CLO CICERO SENE E CECE OEE, OMEN E 4S COVELENL EVEONLATEOS) HEROALES 
BUEEOnRL ELEK 
Dim MSG AS SEEING 2 
me > N SNM sS E F & MECN HEEE E € OC C&C | 
ENN OS E BE RECESSES € MICE & | 
OE ST EE E OE MESES EE & MOC E & | 
ELON OMS AE YS CE SESSA REE & UOC 
Ny GS oN CNN " & DICETNEPICREET VANE . TOSCO EDETES EKIR & MOC 
msg &= "1 رlيخ:‎ " & CheckBox1.Checked.ToString & vbCrLf 
msg &= "2رlyخ:‎ " & CheckBox2.Checked.ToString & vbCrLf 
MsgBox (msg) 
ClearFields () 
TEX EBOZXL EOC US 0) 


End Sub 


EE vwa Ee SUD OUEEORNZ CUNE (EVVEL SENISE AS CMSEEMIOOIEGE EVOL E AS SVSEEMSEVEN EAEIS EHSRILES 
BUE EoOnNZ ELE 
ClearFields () 
TextBoxl. Focus () 
End Sub 
End Class 
يوجد شيئان ممكن أن تكون قد لاحظتهما فيما يخص معالج الحدث: الأول انه لا يستجيب لمفتاح ١ءا”عالإدخال إذا ت‎ 
ضغطه مع مفتاح التحويل" ا۸1" أو مفتاح التحكم" 1إا٣" بينما مفتاح الرقع حhiاكمن الناحية الأخرى هو‎ 
المفتاح المستخدم للتحكم بالاتحاه في ترتيب التنقلطهة1 .ينتقل التركيز إلى الأمام باستخدام كبس مفتاح الإدخال‎ 
معالحة التركيز‎ تمتو.ايوسكازi‎ ft + Ent‌٥إ وينتقل التركيز إلى الخلف باستخدام مفتاح الإدخال مع مفتاح الرفع‎ 
بالنسبة لجميع الأدوات على الفورم ما عدا الأزرار حيث انه عندما يكون التركيز على احد الأزرار فان ضغط‎ 
مفتاح الإدخال يستجيب الزر كما هي العادة.‎ 


تجلب هذه الادوات قوائم من الاختيارات والتي يستطيع المستخدم ان يختار واحد منها او أكثر.يوضح الشكل التالي 
كلا من صندوق القائمة وصندوق قائمة الاختبار 
a Forml | Ea‏ 
a :‏ 
الاحد || اللاسبوع الاول 
الاتنين #1 الأسبوح الثاني 
العسشتد إ7 اللآسبوح التالت 


الاسبوع الثالت 
الاربعاء الاسبوع الراب 


اداة صندوق قاثمة الاختبا اداة صندوق القائمة 


يشغل صندوق القائمة مقدار المساحة الممحددة من قبل المستخدم على الفورم ويتم تعبئتها بقائمة من البنود,ا 
كانت قائمة البنود أطول من ان تناسب إظهارها على الأداة يظهر شريط انزلاق شاقولي بشكل آلي. 

اداة صندوق نص الاختبار هي توسع وتنوع لأد اة صندوق القائمة و هي مماثلة لأداة صندوق النص ولكن صندوق 
الاختبار يظهر أمام كل بند ويستطيع المستخدم ان يختار أي عدد من البنود بوضع علامة الصح في صندوق الاختبار 
الذي أمام البند وكما تعلم فانك تستطيع ان تختار العديد من البنود من اداة القائمة بواسطة ضغط مفتاح 
الرفع ا1طكومفتاجح 1ا التحكم. 

اداة صندوق المركب تحتوي ايضا على العديد من البنود ولكن بشكل عام تشغل مساحة اقل على الشاشة وهي اداة 
صندوق قائمة قابل للتوسعة (التمدد) حيث يستطيع المستخدم ان يوسعها من اجل عملية الاختيار ومن ثم فإنها 
تنكمش بعد ان تتم عملية الاختيار. الفائدة الحقيقية من اداة الصندوق المركب هي السماح للمستخدم بإدخال 
معلومات جديدة في الصندوق المركب بدلا من إجباره على الاختيار من بنود مجدولة. 

لإضافة بنود وقت التصميم»ءحدد خاصية ك"٥1tالبنود‏ في نافذة الخصائص للأدوات Properties window‏ ومن ثم اضغط 
على زر التبديل ستظهر لك نافذة وهي نافذة محرر مجمع الiنصوgوصڊ String czoإااection Editor window‏ والذي 
تستطيع به ان تضيف البنود التي تريد ان تعرضها في القائمة وكل بند يجب ان يظهر في سطر منفصل واسطر النصوص 
الفارغة سينتج عنها اسطر فارغة في القائمة وهذه البنود ستظهر في القائمة عندما يتم تحميل الفورم (ولكن 
تستطيع إضافة المزيد او تحذف من الموجود ) من خلال الكود في أي وقت,تظهر البنود بنفس ترتيب إدخالها في نافذة 
محرر مجمع النصوص مالم يتم تفعيل خاصية الترتيب ل#اإهكللأداة في هذه الحالة يتم ترتيب البنود بشكل 
أوتوماتيكي بغض النظر عن الترتيب الأولي الذي حددته لهم. 


هذه الخاصية هي قيمة منطقية (صح/خطأً) و التي تشر الى ان ارتفاع الأد اة سيتم تعديله ام لاءلتجنب العرض الحزئي 
للبند الأخبر فعندما يتم وضعها الى صح فان ار الفعلي للأداة يتغير بمضاعفة الارتفاع بمقدار ارتفاع السطر 
المفرد.ولذا فانه سيتم عرض عدد صحيح من الصفوف في كل الأوقات. 


البنود هي مجمع ١10اcء11دءوالذي‏ يحفظ بنود الأداة . تستطيع وقت التصميم ان تملا هذه القائمة من خلال 
محرر مجمع النصوص. اما وقت التنفيذ تستطيع الوصول ومعالجة البنود من خلال الطرق والخصائص لمجمع البنود 


النص >×80ءذاان تعرض بنودها في عدة أعمدة اذا عملت على وضع خاصية "تعدد الأعمدة 


تستطيع اداة صندوق 
"Multico1umn‏ ال فعال عuعإاآ‏ . المشكلة في صناديق القوائم المتعددة الأعمدة هي انك لا تستطيع ان تحدد العمود 
الذي سيظهر فيه كل بند.صناديق القوائم ئ Bاisاذات‏ البنود العديدة وخاصية sa5" Multicolumn‏ 
الأعمدة"المفعلة "ue‏ .»تتوسع بشکل أفقي وليس بشكل عمودي . فشريط الانزلاق الأفقي سيتم إلحاقه بصندوق القائمة 
المتعددة الأعمدة ,لذا فان المستخدم يستطيع ان يلب أي عمود الى العرض,وهذه الخاصية غير مطبقة بالنسبة لأداة 
الصندوق المركب×o080طCon‏ 


1 


هذه الخاصية التي يتم تطبيقها على أدوات صندوق القائمة ×80ا5ناوصندوق قائمة الاختبlار Checkedlist8ox‏ 
فقط تحدد كيف يستطيع المستخدم أن يختار بنود قائمة .القيم المتاحة لمكونات هذه الخاصية من عداد صيغة 
الاختيار eءectionModاSe‏ مبينة في القائمة التالية 


بدون None‏ لا يتم السماح لأي اختيار على الإطلاق 
(الافتراضي) يمكن اختيار بند وحيد فقط 
متعددة بسيطة م امص151٤1نا١‏ اختيار متعدد بسيط: (نقر الفارة) أو ضغط المسطرة :إaطع-ءةمء‏ لاختيار أو عدم 
اختيار بند من القائمة .عليك ضغط جميع البنود التي تريد اختيارها. 
متعدد 464 ۸ءاxعit1اMu‏ موسع: اختيار متعدد موسع: اضغط مفتاح اt]اذطك5الرفع‏ وانقر بالفارة (او اضغط واحد من 
مفاتيح الأسهم )لتوسيع الاختيار.هذه المعالجة تبرز جميع البنود بين البند المختار 
مسبقا وبند الاختيار الحالي. اضغط مفتاح التحكم 1إاZ٣وانقر‏ بالفارة لاختيار 
أو عدم اختيار بنود مفردة ف القائمة. 


عندما تكون هذه الخاصية صح تبقى البنود مرتبة كل الأوقات. القيمة الافتراضية هي "غير فعال"لأنها تأخذ وقت 
أطول لإدخال لبنود الجديدة في مكانها المناسب.يمكن ان يتم إعداد هذه الخاصية وقت التصميم ووقت التنفيذ ايضا. 


يتم ترتيب البنود في أد اة صندوق القائمة بشكل تصاعدي وبجالة الحساسية للأحرف فالأحرف الكبيرة تظهر قبل 
مكافئتها من الأحرف الصغيرة ولكن كلا الحروف في الحالة الكبيرة والصغيرة تظهر مع بعضها بشكل متتابع. 

صندوق القائمة لا بمكنه ترتيب البيانات العددية فالعدد 10 سيظهر قبل العدد5 لان النص 10 اصغر من النص 5 
أما ذا تم تنسيق الأرقام ک010 و005 فسيتم ترتيبها بالشكل الصحيح. 


تعود خاصية النص بالنص المختار على الأداة,على الرغم من إمكانية إعداد خاصية النص للصندوق المركب وقت 
التصميم ولكن هذه الخاصية متاحة فقط وقت التنفيذ بالنسبة للأدوات الأخرى,لاحظ ان البنود لا تحتاج لان تكون 
نصوص.بشكل افتراضي كل بند هو كائن ومن اجل كل كائن فان الأداة تعرض نصوص,والذي هو نفس النص المعاد 
بواسطة الطريقة 9 ١1٣†5Sهاآ"الى‏ نص" 


لمعالجة أداة صندوق النص من خلال تطبيقك عليك ان تكون قادر على عمل التالي: 
1- إضافة بنود إلى القائمة 
2- إزالة بنود من القائمة 
3- إمكانية الوصول إلى البنود المستقلة في القائمة 
يتم تمثيل البنود في القائمة بواسطة مجمع البنود«هذخءم11هء كصعخ1 .وانك تستخدم أعضاء مجمع البنود من اجل 
إمكانية الوصول إلى بنود الأداة ومن اجل إضافة أو إزالة بنود .تعرض خاصية البنود الأعضاء القياسية 
للمجمع ,والتي سيتم شرحها فيما بعد في هذا المقطع. فكل عضو ف مجمع البنود هو كائن .وفي معظم الحالات نستخدم 
أدوات صندوق القائمة لتخزين نصوص ولكن من الممكن تخزين كائنات .عندما تضيف كائن الى اداة صندوق القائمة 
فانه سيتم عرض نص في السطر الموافق على الأداة و هو النص المعاد بواسطة طريقة الكائن وصذعخS؟ه٣"الى‏ نص".و 
هي خاصية الكائن التي سيتم عرضها بشكل افتراضي. : 
تستطيع ان تعرض أي خاصية أخرى للكائن وذلك بوضع خاصية الأداة :ءeط"صء¥عa1u/الى‏ اسم الخاصية.فإذا أضفت 
كائن خط ارت٣‏ وكائن مربع ٠2191ء۸‏ الى مجمع البنود بالعبارات التالية: 
ListBoxl. Items. Add (New Font ("Verdana", 12, FontStyle. Bold) )‏ 
ListBoxl. Items. Add (New Rectangle (0, 0, 100, 100))‏ 
عندها سيظهر النص التالي في أول سطرين من الأداة: 
[Font: Name=Verdana, Size=12, Units=3, GdiCharSet=1, gdiVerticalFont=False]‏ 
{X=0, Y=0, Width=100, Height=100}‏ 
مهما يكن تستطيع الوصول الى أعضاء كلا الكائنين لان صندوق القائمة يخجزن الكائنين وليس شرحهما 
(الوصف) العبارة التالية تطبع اتساع كائن المربع (المخرجات الناتحة عن العبارة هي 100) 
Debug.WriteLine (ListBoxl1.Items.Item (1) .Width)‏ 
التعبير في العبارة السابقة " ربط متأخرك”سدط-هtة1‏ "والذي يعني ان المترجم لا يعرف فيم اذا كان الكائن 
الأول في ا البنود كائن مربع و لا يستطيع التحقق رأذاإء»من اتساع المكون .اذا حاولت استدعاء الخاصية 
طtللاللبند‏ الأول في المجمع ستحصل على استثناء «٥نامهء×عوقت‏ التنفيذ: ان الكود يحاول الوصول الى عضو 
مفقود (غير موجود) .والعضو المفقود هو خاصية "الاتساع" "طtل1لآلكائن‏ الخط. 
الطريقة المناسبة لقراءة الكائنات المخزنة في اداة صندوق القائمة هي تفحص النوع للكائن اولا ومن ثم محاولة 
الوصول لاستخلاص خاصية ما(او استدعاء طريقة)للكائن ,وفقط اذا كان نوعه مناسب .إليك كيف ستقرأً خاصية 
الاتساع لكائن المربع: 
If ListBox1.Items.Item (1) .GetType Is GetType (Rectangle) Then‏ 
Debug.WriteLine (CType (ListBox1.Items.Item (1), Rectangle) .Width)‏ 


ERG TE 


لإضافة بند إلى القائمة استخدم الطريقة "إضافة بند ككs.4ك"هخ1‏ " او "إدخال بند خ1tems.1nser‏ ".الشكل 
العام لطريقة"إضافة بند" كمايلي: 
ListBox1. Items. Add (item) 1 ٍ‏ 
عامل :ءإeءاarameمالبند‏ هو الكائن الذي تمت إضافته الى القائمة.تستطيع أن تضيف أي كائن إلى أداة صندوق 
القائمة,ولكن تكون البنود عادة نصوص, الطريقة ل4ل" إضافة" تعمل على إلحاق كلك,ءطمطةبند جديد إلى نهاية 
القائمة مالم تكن خاصية"ترتيب كعاإهك " تم إعدادها إلى صحعدإآ . الحلقة التالية تعمل على إضافة عناصر من 
مصفوفة الكلمات كلءإتسإلى اداة صندوق القائمة <>×80اءأاآاكلمة في كل مرة. 
DIM WOEdSS (OO) AS SEAN‏ 
عار ات متاوبة اة االمفيقة) 
Dim i As Integer‏ 
OE 1 = Û To 9‏ 
ListBoxl.Items.Add (words (i) )‏ 
MESE‏ 
بشكل مشابه تستطيع الدوران على جميع البنود الموجودة على الأداة باستخدام حلقة كالتالية: 
Dim i As Integer‏ 
OE A = O TO LA SEBEL ¢ 1 ESS . COUN =‏ 
statements to process item ListBoxl.Items (i) }‏ { 


Next 
E SU 
You can also use the For Each... Next statement to iterate through the Items collection, as shown here: 
0آللدوران على مجمع البنود كما هو مبين هنا:‎ E۴ch ... Nex أيضا استخدام العبارة‎ 


Dim itm As Object 
HOE Hacl TEM IN LMISEBOX Tl MEeMS 
{ process the current item, represented by the itm variable } 
Next 
عندما تملا أداة صندوق القائمة بعدد ضخم من البنود,استدعي الطريقة"ابدأً التحديث ءاaلما”ذوهء8 " قبل‎ 
البدء بالحلقة واستدعي الطريقة" أنهي التحديث مامكمطاك«ع " عندما تنتهي.هاتان الطريقتان تعملان على تعطيل‎ 
التحديث المرئي للأداة بينما تملا الأداة وتسرعان عملية المعالجة بشكل ملحوظ.عندما يتم استدعاء الطريقة " أنهي‎ 
التحديث مخملمصال«ع " فأنه يتم إعادة تشكيل الأداة مع جميع البنود.‎ 


لإدخال بند في موقع محدد استخدم الطريقة "إدخال خ٣إهئ«1‏ " والتي لها الشكل العام التالي: 
ListBox1. Items. Insert (index, item)‏ 
عامل :إarameteمpالبند item"‏ هو الكائن الذي سيتم إضافتهءوالفهرس ×جعمكصة هو موضع البند الجحديد,وفهرس 
البند الأول هو الصفر.لاحظ انك لا تحتاج إلى إدخال البنود عند موقع معين عندما تكون القائمة مرتبة.وإذا 
عملت ذلك,فإن البنود سيتم إدخالها عند مواضع محددة ولكن القائمة لن تكون مرتبة بشكل تلقائي بعد الآن. 


تعمل هذه الطريقة على إزالة جميع البنود من الأداة .والشكل العام لها: 
A SEL. LECeMS. CISAE‏ 


هي عدد البنود في القائمة .إذا أردت الوصول إلى البنود باستخدام الحلقةا×ه[ . . . إ۴ حلقة الإحصاء يب ان 
تذهب من 0 الى 1 = Items .Count‏ .istB0xا‏ كما هو ميين في مثال طريقة A١١‏ "إضافة" 


تستخلص هذه الطريقة جميع البنود من أداة صندوق القائمة وتخزنها في مصفوفة ممررة إلى الطريقة كمعامل نسي. 


RS EBEBOZ COPY EO (GES EINAETOR, index) 
حيث ان الوجهة «٥0ذخة”ذخsمdكهي اسم المصفوفة التي ستقبل البنود»والفهرس «×هلك”صذهو فهرس عنصر من المصفوفة‎ 
حيث سيتم تخزين البند الأول. المصفوفة التي تثبت بنود الأداة يب ان يتم التصريح عنها بشكل صريح ويجب ان تكون‎ 


لإزالة بند من قائمة,تستطيع بكل بساطة استدعاء طريقة مجمع البنود " ممصم إزالة " وتمرر الكائن الذي 
ستتم إزالته كمعامل نسي. اذا كانت الأداة تحوي نصوص .مرر النص الذي ستتم إزالته .إذا كان نفس النص يظهر 
في العديد من البنود على الأداة فان النسخة الأولى فقط سيتم إزالتها. 
تستطيع أيضا إزالة بند بواسطة تحديد موقعه في القائمة بالطريقة" إزالة عند خ۸٥ر0صسعR‏ "والتي تقبل كمعامل 
نسي موضع البند الذي ستتم إزالته: 

ListBox1. Items. RemoveAt (index) 
0 العامل "فهرس×6ك11 " هو ترتيب البند الذي ستتم إزالته والبند الأول ترتيبه هو الصفر‎ 


يجب أن لا تخلط بين هذه الطريقة ك«ذةخ«ه)التابعة مجمع البنود وطريقة ك«ذةخ«صه٤‏ التابعة للأداة,فطريقة مجمع 
البنود تقبل كمعامل نسي كائن ما وتعود بقيمة صح/خطصاً والتي تشير فيما إذا كان الجمع يحوي على هذا 
الكائن. استخدم طريقة ك«صنذةخ«صم٣‏ لتجنب الإدخالات لكائنات متماثلة في صندوق القائمة.العبارات التالية تضيف 
الى مجمع البنود فقط إذا كان النص ليس جزء مسبق من مجمع البنود: 
Dim itm AS StEInNG —  Remole COMPULIRG‏ 
HE NOE LISEBOSl . ITEemMS. COREA TAS (TEM) Then‏ 
ListBox1. Items.Add (itm)‏ 
OGL‏ 


t. 


تسمح أداة صندوق القائمة للمستخدم باختيار إما واحد أو العديد من البنود بالاعتماد على إعدادات خاصية 
"الصيغة المختارة eء0”M0dنذاءعاعSك‏ ". في أداة صندوق القائمة ذات الاختيار الوحيد تستطيع استخلاص البند 
المختآر باستخدام الخاصية"البند المختار ۳٥٤1لءtاءه1هS؟‏ " وفهرسها باستخدام الخاصية"الفهرس المختار 
nde×xاectedاSe".‏ تعود الخاصية "لبند المختار "عtخd1مtعcعماإاعهS‏ " بالبند المختار والذي هو كائن.نص البند 
المختار يتم التبليخ عنه بواسطة خاصية لنصا×e'آ‏ 
إذا كانت الأداة تسمح باختيار العديد من البنود ,يتم الإبلاغ 4١ء٤إoمءء(تثبيت)باستخدام‏ الخاصية"البينود 
المختارة sصءd1tمctماeعS‏ "وهذه الخاصية هي مجمع من الكائنات وتعرض نفس المكونات التي في مجمع البنود.ولأن أداة 
الصندوق المركب لا تسمح باختيار العديد من البنود ,فإنها تزود فقط بخاصيات " "٥1لء†اءم1هم؟ك‏ البند المختار" 
و"الفهرس المختار ×عملك”1كءt†عماعS‏ " .من أجل الدوران على جميع البنود المختارة في أداة صندوق القائمة 
المتعددة الاختيار,استخدم حلقة مثل التالي: 
Dim im AS OBJ ECE‏ 
For Each itm In ListBox1.SelectedItems‏ 
Debug.WriteLine (itm)‏ 
ISS E‏ 


المتغير يب أن يتم الإعلان عنه ككائن لان البنود في صندوق القائمة هي كائنات.فإذا كا نت جميعها من نفس 
النوع ,تستطيع ان تحولها إلى نوع معين ومن ثم تستدعي طرقها.فإذا كانت جميع البنود من نوع المربع مثلاءتستطيع 
أن تستخدم حلقة كالتالية لطباعة مساحة كل مربع: 
Dim itm As Rectangle‏ 
Bor Maen Em UM USEEBOXl Sele CEEAN EOMS‏ 
Debug.WriteLine (itm.Width * itm.Height)‏ 
Next‏ 


يوضح هذا المشروع العمليات الأساسية لأداة صندوق القائمة.حيث ان كلا أداتي صندوق القائمة اللتان على الفورم تعملان بشكل مختلف نوعا مافالأداة 
الأولى لديها التركيب الافتراضي:يمكن اختيار بند واحد في نفس الوقتءوالبند الجديد يتم إلحاقه بعد البند الموجود.أما أداة صندوق القائمة الثانية فان 
خاصية 4ع ه؟"الترتيب "تم إعدادها إلى م٣‏ صح وخاصية "تعدد الاختيار ماع5 ا" " تم إعدادها تبعا للقيمة في أداتي أزرار التبديل 
JwİRadioButton‏ فور 

إن كود تطبيق"توضيح صندوق القائمة" يحتوي الكثير من المنطق الذي تحتاجه في إجراءات معالجة صندوق القائمة. إنه يوضح لك كيف تعمل التالي: 
إضافة وإزالة بنود وقت التنفيذ 

تحويل البنود بين القوائم وقت التنفيذ 

معالجة بنود الاختيار المتعدد 

حفظ القوائم المرتبة. 

ابدأ مشروع جديد وسمه"مشروع توضيح صندوق القائمة" وعندما يفتح المشروع أعد تسمية الفورم من خلال خاصية النص إلى "صندوق القائمة" وكما 
هو مبين في الشكل التالي: 


| اه صندوق القائمة 


صرتبةر 
قاثصة- وحيدة الاختيار 


قاتصة- متجددة الاختيارات 


ثلاٹ آدوات عنوان اترك اسماءها الافتر اضية 


| إضافة بند سل اضافة بند 
لزالة البنود المختارة 1 


لزالة البنذ الضصضغار 


الأدوات الموضوعة على الفورم وخصائصها: 


اسم الأداة(او اسم خاصية النص t×هtخ‏ ) الاسم البرمجي للأداة المستخدم في الكود(خاصية مسقم ) 
ثلاث أدوات عنوان1٠طة1:غيّر‏ خاصية النص خ»×هخ كما مبينة في الشكل (Labe1l3, Labe1l2 ,Labe11)‏ 
صندوقي قائمة×0ه8†ءذا (لا يوجد لها خاصية نص t×هtخ)‏ الاسم البريجي مبين بالشكل 


صندوق قائمة الوجهة ضع لها خlاصیة sorted=true)‏ ( 


radiobtnmul tisimple (text= طıuڊ‎ ددzgin)‎ RadioButton Jaدıت‎ رj‎ 
radiobtnmul tiextended (text=gعسgn‎ ددzgin)‎ RadioButton Jıدıت زر‎ 
btnsourcemoveall (text = <<) Buttonرj‎ 
btnsourcemove (text = <) Buttonرj‎ 
btndestinationmove (text =>) Button Jj 
btndestinationmoveall (text = >>) Buttonرj‎ 


۳ 
8 


btndesadd (text =دıiب‎ ةفlضإ|)‎ Buttonرزj‎ 
btndestinationremoves (text (إزالة البند المختار=‎ Buغtغtەم٬رز‎ 
btndestinationclear (text =iıظiة)‎ Buttonرزj‎ 


8 
. : 


btnsourceadd (text =دıiب‎ ةفilضإ)‎ Buttonرزj‎ 
btnsourceremove (texغ (إزالة البنود المختارة=‎ Buخttمم٬رز‎ 
btnsourceclear (text =iıظi)‎ Buttonرj‎ 


هذه كل الادوات الخاصيات التي تحتاجها فقط بقي عليك ان تجعل خاصيات من اليمين الى اليسار صحيحة بالنسبة 
للفورم وكما ذكرنا سابقا من اجل الواجهة الكتابة العربية . الآن إليك الكود كاملا: 
Eble Class HOB‏ 
توفع هد1 اشرو وة معا كرون , اة ةوق تة وة اتر 
1 تة ١‏ قاف وة ورقف التق ية 


RNN Eg, IST SNN EMI, aS 2 
كبقية تقل اليخود ين القوائع‎ a 


Erivete SUS DENSOUEEEAIS CIEE BYUSL Senden AS SVSEEM. ODICEEEY, BVUEL € AS SVSEOM. EVENERASGS) Handles 
BEnSOUEE ead CEK 

Dim TListItem AS String 

ListItem = InputBox ("Enter new item's name") 

TE MSELEEM YEEM E U nen 


sourceList. Items.Add (ListItem) 
End Tf 
End Sub 


EEA Ce SES DCDSOWECEEONO VE EEK EYUSN Send LS SUSE OSISE GS BIOL ECE RS SUES BVED EASES) HOTO 
btnsourceremove.Click 
Dim i As Integer 
For i = 0 To sourceList.SelectedIndices.Count = 1 
أو االدتي اهار ا اول و اتةه‎ 
لا تستخدع الفقهرصس (1) لاختيازن الجتك الذي ستتم از القة‎ 1 
اطا رق اة‎ 2 
' sourcelList. Items. RemoveAt (sourcelList.SelectedIndices (i) ) 
لن تزيل البتد الصحيح,لان الجمع‎ 
تر ق كل سرة زيل قبطا جد‎ ' SELECTEDINDICES 
هقاة الخلقة تستمر ف از ال المتوف المختارة بي الأفلى‎ 
ا الود اال ج خخا زوا‎ ١ 
sourceList. Items. RemoveAt (sourceList.SelectedIndices (0) ) 
Next 


ERG SUB 


EE iveate SUS DENSOUEEEMOVESALN CINEEKEBYUEL Senden AS SVUSEEM. ODICEE, BYU € AS OVSEOM. EVENNESS) Handles 
btnsourcemoveall.Click 
Wa le SOUEEeLISE. I EeNS.COUnE SS Û 
حفظ اضافة البند الاعلى الى قائمة الوجهة‎ ٣ 
قائمة اللمضدز‎ 
استخدمتاهاا لأزالة‎ ٠ هذ «الخلقة مشاهة للق‎ 
جود ستارة تعد من خاتهة الصك‎ 


destinationList. Items. Add (sourceList. Items (0) ) 
sourceLlList. Items. RemoveAt (0) 
End While 
End Sub 


٣‏ جقظ. افافة النفه الختار االأغلى ١ال‏ اقائفة "الوجهة 
في قائمة المصدر 

هة الخلقة مشاهة للق استخدمخاها لاز الة 
1 يبوك شخارة ستعدةة من قاتمة الضفكن_ 


Private Sub btnsourcecléear Click (ByVal Sender As System.Object, ByVal € As System. EVENntArGS) Handles 
btnsourceclear.Click 
sourceList.Items.Clear () 
End Sub 


Eee Ce SES DENdeS CADA LA ODO Ue AN CM EEKEVUSN Sende AS SVSESNEOONSE ES EVUN E RS SVSESMNEEVUSNEAEIS) 
Handles btndestinationmoveall.Click 
while destinationlList.Items.Count > 0 
sourceList.Items.Add (destinationList. Items (0) ) 
destinationLlList. Items. RemoveAt (0) 
End While 


End Sub 


زضع جخاصية «صيغة الاجتبازر 513¥ ضندزق قائمة السزرس اؤ الخصدن 
REE EE EL EEL ELISE‏ 


و و و Ù Ù‏ ص | 


End Class 1‏ 
الكود بسيط ومشرو الكود من خلال التعليقات ولا أظن أنه بحاجة إلى شرح أكثر. 


طريقتين من أكثر الطرق فائدة لأداة صندوق القائمة وها الطريتةقة Findstringو‏ اlلطريãةقة FindstringExact‏ 
واللتان تسمحان لك وبسرعة من إيجاد أي بند في القائمة. الطريقة JazöFindString‏ على إيجاد النص الذي 
يطابق بشكل جزئي الذي تبحث عنه» أما الطريقة "FindStringExact‏ وج“ النص بالضبط"فإنها تعمل على إيجاد 
النص المطابق تماما. إذا كنت تبحث عن ”1 مثلا والأداة تحوي على اسم مثل 1dعذ#ئ”مة1١‏ فان الطريقة "أوجد 
النص" توافق البند ولكن الطريقة "أوجد النص بالضبط" لا تجد ولا تطابق البند,.كل من الطريقتين" أوجد 
النص"والطريق" أوجد النص بالضبط"تنجزان البحث تحت حالة عدم الحساسية للأحرفه7ذخذئ«هءمذ-هsهc‏ . أما الشكل 
العام لهما فهو التالي: 

Eem IRIeExX  LISEBOSL  EIMOSEr ING (SEA ERNSEE AS SEEING) 


حيث أن المتغير عغS؟٣Cإمهكهو‏ النص الذي تبحث عنه .النموذج البديل لكلا الطريقتين يسمح لك بتحديد 
ترتيب البنود الني سيبداً عندها البحث: 

iiEem IRdex  LISEBOXl EINOASEr ING (SearEeNSEE AS SEEING, SEarEInNndex AS InEeder) 
لك بتحديد بداية عملية البحث» ولكن لا تستطيع أن تحدد أين سينتهي البحث.‎ حمسيئكاةإ۲٤1٣كع×‎ ٠ المعامل النسي‎ 
الطريقة و١1إ†ككل,ذ۳٣والطريقة اct٤xa×٤1”9اإtاSكلinاتعملان حتى ولو كانت أداة صندوق القائمة غير مرتبة. فلا‎ 
تحتاج إلى إعداد الخاصية 4ءإهS؟إلى صح ءاقبل أن تستدعي إحدى طرق البحث هذه ,ولكن ترتيب القائمة‎ 
سيساعد في عملية البحث,ولكن تستغرق الأداة أقل من 100 ميلي ثانية لإيجاد بند في قائمة تحوي 100,000 بند لذا‎ 
فانه لا يستحق صرف الوقت لترتيب القائمة .قبل أن تحمل الآلاف من البنود في أداة صندوق القائمة ومهما يكن يب‎ 
أن تأخذ بعين الاعتبار أن تكون واجهة المستخدم أكثر فعالية.‎ 


التطبيق الذي ستبنيه في هذا المقطع يعمل على تعبئة أداة صندوق القائمة بعدد كبير من البنود ومن ثم إيجاد أي نص تحدده. 
فالضغط على زر تعبئة يعمل على تعبئة صندوق القائمة ب10,000 نص عشوائي.وهذه العملية ستأخذ عدة توان وستملاً الأداة 
بتصوص مختلفة وعشوائية كل مرة.من ثم تستطيع إدخال نص في أداة صندوق النص التي في أسفل الفورم .عند ما تكتب الحروف(أو حق 
تحذف حروف في صندوق النص) فإن البرنامج سيجد النص المطابق الأقرب في القائمة ويجتار(يبرز) هذا البند. 

إبداً مشروع جديد ولمه"مشروع إيجاد بند في قائمة" وسم الفورم الرئيسية له "إيجاد بند في قائمة" ,وكما ذكرنا 


في ما سبق أجعل الخاصيات من اليمين لليسار لهذه الفورم فعالة.ضع على الفورم زر وامه من خلال خاصيةالنص 
"تعبئة القائمة" واه البرججي"٠خة1امه٥۲«†اط"‏ وضع زر أخر تحته وسه "إيجاد بند" وامه البرمجي"ك٣ذ۴«غاط‏ ",وضع 
على الفورم أيضا أداة صند وق قائمة وتحتها أداة صندوق نص كما هو مبين في الشكل التالي: 


ListBo:1 


يتفاعل هذا التطبيق البسيط مع كل كبسة مفتاح في أد اة صندوق النص ويعمل على إيجاد النص الذي تبحث عنه في الحال.زر ايا 
بند يعمل نفس الشيء ,ولكن أعتقد أنه من الواجب علي توضيح فعالية أداة صندوق القائمة ونوع التخصص الوظيفي الذي 
ستتوقعه أثناء عمل تطبيقات للزبائن.والآن كود المشروع كاملاً: 

Public Class Forml 


Private Sub bttnFind Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 


bttnFind.Click 
Dim srchWord As String 
Dim wordIndex As Integer 


srchWord = InputBox ("lqie لبح‎ în Jخدا"(‎ 
' Attempt to find an exact match with the FindExact method دجوÎ‎ "ةaةيرطÙÜلا 'محاولة إيجاد المطابق تماما بواسطة‎ 


E ۰ E) 


wordIndex = ListBoxl1.FindStringExact (srchWord) 
'"' If an exact match was found, display the word's index in the Items collection قJبlط۸klا‎ داچgإ ت#@‎ اذ!١‎ 


بالضبط, أعرض فهرس الكلمة في مجمع البنود 
If wordIndex >= 0 Then‏ 
ListBox1.TopIndex = wordIndex‏ 
ListBox1.SelectedIndex = wordIndex‏ 
MsgBox ("سرgêll‎ = " & wordIndex.ToString & vbCrLf & _‏ 
("المطابقةبالضبط" , 1!tems (wordIndex) .ToStrFing,‏ . istBox1ا‏ & " = تطابق" 
Else‏ 
وإ إذهب إلكd‏ kllطqlږڙة Otherwise go for a near match with the FindString method‏ "' 
القريبة,بالطريقة" إيجاد نص" 
wordIndex = ListBox1.FindString (srchWord)‏ 
If wordIndex >= 0 Then‏ 
ListBox1.TopIndex = wordIndex‏ 
ListBox1.SelectedIndex = wordIndex‏ 
MsgBox ("سرgêll‎ = " & wordIndex.ToString & vbCrLf & _‏ 
("مطابقة تقريبية" , Items (wordIndex) .ToSÈFing,‏ . istBox1ا‏ & " = تطابق" 
Else‏ 
we should never reach this statement, because there will always‏ ' 
يب أن لا نصل إلى هذه الحالة (العبارة( ,لأنه4ه سيكوj be a near match, unless the list is empty!‏ ' 
دائما هناك مطابقة قريبة ,غير ذلك فإن القائمة فارغة! 
("غير موجود في القائمaة‏ " & MsgBox ("ill " & srchWord‏ 
End If‏ 
End If‏ 
End sub‏ 


الكود 


التالي (ارجع إلى كود"تغير نص صندوق النص" الذي بدايته: 

.) يجاول إيجاد التطابق بالضبط بواسطة الطريقة" إيجاد نص بالضبط 
۴NdStringExact‏ " فإذا نحجحت هذه العملية,فإنها ترد بفهرس العنصر المطابق.و إلا فإنها تحاول إيجاد 
مطابقة تقريبية بالطريقة" إيجاد نص ومذعخ8كمذع " فإذا نجحت فإنها ترد بفهرس المطابقة 


التقريبية (والذي هو البند الأول على الأداة الذي يطابق بشكل جزئي معامل البحث النسي) ومن ثم 
فإنها تنتهي. 
فى حال الفشل في 


إبجاد المطابق ,فان البرنامج يظهر رسالة "البند غير موجود في القائمة 


1 القائمة" يعمل على إنشاء10000 بند عشوائي بمساعدة الفئة"عشوائي "ملصمجR‏ ".في البداية تعمل على إنتاج قيمة 
عشوائية في المجال من 1 إلى20, و التي هي طول النص(ليس لكل النصوص نفس الطول) .ومن ثم فان البرنامج يعمل على إنتاج العديد 
من الحروف العشوائية بطول النص ويبني النص بإلحاق كل حرف له .هذه الأعداد العشوائية هي في المجال من 65 إلى 91 وهي قيم 

أ لأنسي #1للحروف في الحالة الكبيرة. 


أداة الصندوق المركب أداة صندوق القائمة في مفهوم أنها تحتوي على بنود عديدة ويمكن للمستخدم أن يختار أحدها,ولكن 
نموذجيا مساحة أقل على الشاشة.تقريبا الصندوق المركب أداة صندوق قائمة قابلة للتمدد ,حيث يمكن ان يتمدد عندما يريد 
المستخدم أن يختار ويعيد التقلص بعد انتهاء عملية الاختيار .تعرض أداة الصندوق المركب عادة سطر مفرد بالبند الذي تم 
اختياره,وكما لا تسمح هذه الأداة بالاختيارات المتعددة للبنتود.فالفرق الأساسي بين اداة الصندوق المركب واداة صندوق 
القائمة هو أن صندوق القائمة يسمح للمستخدم بتحديد بنود غير موجودة في القائمة 


يوجد ثلاث أنواع من أداة الصندوق المركب .تحدد قيمة الخاصية "مط ما1رخك "لأد اة الصندوق المركب أي صندوق تم 
استخدامه.وهذه القيم مبينة في القائمة التالية: 


الشكلين التالين "مشروع أنماط صندوق القائمة"لتوضيح الأماط التلاث لصندوق القائمة والذي هو عنصر مشترك لواجهة 
اانا .(لا تعمل هذا المشروع فهو للتوضيح فقط) 


تنصتصن الأداة صنذوف تص وقاثدة لا نذا للأسفل ,يتطق 
الصستخدم اللاختياز من لقاثصة qa‏ الكنابة قي صنتوف النض 


Sirnpla Iter 1 
sirnpla Item & 
Simple Item 3 
sirnple Item 4 


1 


نمط الصمتسدل للاسقر 

ترشب اللأذاة سن فاثدة صنسدلةروالتي نتون مرثية تل الأوقات 
وصندوف نص .يستطبح الصستخذص ü‏ بختاز بنذ من القاثمة a‏ 

DroapDown Item 1‏ آنا يكنب بند جخيد في صندوف النض. 

GrapDown Item & 

DrapDawın Item 2 

GropÛDown Item 4#‏ تت 

8x ikem description‏ , هذا النمط هو فاثمة منسدلة ومنها يس تطبة الس تخدم أن يختار 

î: | 


واحد من بنوذها ولتن لا بستطبح إذخال a‏ تتابة واحد جنيد 
.تجرضى الاداة بند واحدرتتنمدد القاثمة عند الجاجة. 


Simple Item &ã‏ تخضصن الأدات صندوفق تنص وقائصة کال اال ر ل 


imple Item 1‏ الصستخدذم اللاختياز صن لقاقصة a‏ الكتنابة قي صندذوف النص 


Simple Item 3 
simple Item 4 


دو 5 تنرب الشداة من قائمة صنسدلة,والتي تكون مثية كل الوقات 
وصندوق تص .يستتنطيح التقسستشذص 1 يجار بنذ صن القاثصة a‏ 
ù‏ يكتنبا يبند جحيد قي صندوفق النص . 


نحط الاتسدال لللاسقل تقاثمة 


هذا النمط شو قاثمة منسدلة ومنها بستطبح الصمستخدم أن يختار 
2ropDownList Item &‏ تا واحد من بنودها ولكن لا يستطبح إدخال a‏ شنابة واحد نيد 
DropDownList Item 1‏ .تعرض الأدذاة بند واخدروتتصدد القاثصة عند الحاجة. 


GroapDÛonList Item 3 
GraopÛorynList ItEm 4# 
DropDownList Item 5 


GropÛoryrı 
GropDowynLisE 


غير الأنماط من خلال هذه الخاصية 


معظم خاصيات وطرق أداة صندوق القائمة «×80خءذا تطبق أيضا على أداة الصندوق المركب×080طصه٣‏ .يمنحك مجمع 
gain.llد Items collection‏ إمكانية الوصول إلى بتود الأداة,و يمنحك الجمع "الفهارس المختارة 
ectedrndicesاSe1"‏ والجمع"البنود المختارة كصەtخd1لمctماهS‏ " إمكانية الوصول إلى بنود الاختيار الحالي.إذا 
كانت الأداة تسمح باختيار ببند وحيد فقط,استخدم الخاصية"الفهرس المختار ×مل”d1كمctم1هك‏ " والخاصية"البند 
المختارصءخd1مctماهء"‏ .تستطيع أيضا أن تستخدم الطريقة"إيجاد نص وصذعخكئكمذ۴ " والطريقة" إيجاد النص بالضبط 
dStringExact‏ ۴" لإياد أي بند في الأداة. 
توجد سة تستحق الذكر بجخصوص العمليات على الأداة. على الرغم من أن صندوق التحرير في الأعلى(صندوق نص الأداة 
الذي تستطيع أن تكتب فيه إذا كان ذلك متاح أو يظهر فيه البند الذي تختاره من قائمة الأداة ,انظر الأشكال 
السابقة ولاحظ ظهور البنود التي تختارها أو تكتبه في هذا الصندوق مثل الصندوق المكتوب فيه كلمة :هو) يتيح 
لك إدخال نص جديد فإن النص الجديد لن يصبح بند جديد في القائمة ويبقى هناك حتى تختار بند اخر 
صندوق التحريرءتستطيع إضافة بعض الكود لجعل أي نص مدخل بواسطة المستخدم في صندوق تحرير الأ لأن يتم 
إضافته إلى قائمة البنود الموجودة. 
الاستخدام الأكثر شيوعا لأداة الصندوق المركب كجدول بحث(كما هو مبين في الشكل التالي حيث أن القاموس الشهير 
بابليون يستخدم الصندوق المركب كأداة بجث وهي ميزة شائعة الاستخدام في القواميس الالكترونية) حيث أن يشغل 
مساحة قليلة جدا على الفورم,ولكن بإمكانه التمدد متى تشاء11ذس غه .تستطيع حتى توفير مءرهءمساحة عندما 
يتم تقليص الصندوق المركب بوضعه إلى أقل عرض يناسب البند الأطول.استخدم الخاصية"عرض الانسدال 
"DropDownWidth‏ والتي هي عرض مقطع قائمته المنسدلة.بشكل افتراضي هذه الخاصية مساوية إلى خاصية عرض 
الأداة.فصندوق القائمة الثاني في الأشكال السابقة يحتوي على بند طويل واتساع الأداة كاف لعرض الاختيار 
الافتراضي.عندما ينقر المستخدم على السهم الصغير لتمديد الأداة فإن مقطع الانسدال للأداة أعرض من العرض 
الافتراضي لذا فإن البند الطويل بمكن قراءته. 

کم س خیارات 


Gol @ 4) 


على الرغم من أن أداة الصندوق المركب تتيح للمستخدم إدخال نص في صندوق تحرير الأداة.ولكنها لا توفر الية بسيطة لإضافة 
بند جديد وقت التشغيل,لنقول أنك زودت صندوق مركب بأساء المدن ,يستطيع المستخدم كتابة الأحرف الأولى وبسرعة يتم إيجاد 
البند المرغوب.ولكن إذا كنت تريد أن تتيح للمستخدمين إضافة أهاء مدن جديدة ,تستطيع أن توفر هذه الميزة من خلال 
تقنيتان بسيطتان . الأبسط منهما هي وضع زر عليه علامة إضماركذكمة11ه (ثلاث نقط) قرب الأداة تماما.عندما يريد المستخدمين 
إضافة بند جديد للأداة بإمكانهم النقر على هذا الزر ويطلب منهم إدخال البند الجديد. 

المقاربة الأكثر لباقة هي تفحص خاصية النص للأداة حالما تفقد الأداة التركيز, أو حالما يضغط المستخدم مفتاح 
الإدخال.فإذا كان النص المدخل بواسطة المستخدم لا يطابق أي بند موضوع على الأداة ,يتوجب عليك إضافة بند 
جديد إل مجمع بنود الأداة واختيار البند الجديد من من ال د.9" يوضح كيفية 
استخدام كلا التقنيتان في كودك. الفورم الرئيسية للمشروع والتي تظهر في الشكل التالي هي نافذة إدخال بيانات 
بسيطة .ولكنها ليست الفورم الأفضل لإدخال البيانات,والقصد منها التوضيح فقط. 

تستطيع إما إدخال اسم المدينة(أو اسم البلد)ومن ثم الضغط على مفتاح التنقلطةآ ,للانتقال إلى أداة أخرى أو 
النقر على الزر بحانب الأداة ليطلب منك اسم المدينة/البلد.سيتيح لك التطبيق ضم أي مدينة/بلد. 

يجب أن تزود بالكود لحصر المدن بالبلد المختار,ولكن هذه مهمة غير عادية.تحتاج أيضا إلى تخزين ألماء المدن 
الجديدة المدخلة على أداة الصندوق المركب الأولى في ملف(أو جدول قاعدة بيانات) ,لذا فإن المستخدمين بإمكانهم 
إيجادها هناك في المرة القادمة عندما ينفذون التطبيق. لم أجعل التطبيق محكما,فقد عملت فقط على إضافة الكود 
اللازم لتوضيح كيفية إضافة بنود إلى أداة الصندوق المركب وقت التنفيذ. 


ابدأ مشروع جديد وسمه"مشروع الصندوق المركب المرن" وسم الفورم"الصندوق المركب المرن" وضع عليه الأدوات 
المبينة في الشكل التالي: 


سز ال 


في هذا المشروع سنعمل على تعديل الخاصيات التالية للاأدوات التي على الفورم: 


بالنسبة لأدوات العناوين(1١طة1)فإننا‏ م نعمل عليها أي تعديل فقط سنغير خاصية الاسم لتظهر العناوين كما 
هي مبينة في الشكل السابق والعناوين هي(الاسم والعنوان,والمدينة,والبلد,والرقم البريدي بالترتيب من الأعلى 


إلى الأسفل) 

الأداة الخاصية 

أدوات صناديق النصوص (×دطtخ×مtخ‏ ) 

صندوق نص الاسم الاسم البرنجي ) (name= txtName‏ 

صندوق نص العنوان الاسم النير èۈۍي‏ ) (name= txtAddress‏ 
صندوق نص الرقم البريدي الاسم الıر‏ èۈۍي‏ ) (name= txtPostal1Code‏ 
أدوات الصناديق المركية (×o0طoطcom(‏ 

صندوق المركب للمدينة الاسم البرمجي (name= cbCi ty)‏ 

صندوق المركب للبلد الاسم الıزرzZèي (name= cbCountry)‏ 
الأزرIر (button)‏ 

زر قبول الاسم البر جي (name= bt tnOK)‏ 

زر رفض الاسم الıرzZèjإي (name= bttnCancel)‏ 

زر النقل للمدينة(--) الاسم النرt‏ ۈي (name= bttnLocateCi ty)‏ 
زر النقل للبلد(...) الاسم الıزرzZèإي (name= bttnLocateCountry)‏ 


زر النقل ١‏ 0اط كأومااام اجا ور لأداة الصندوق المركب"المدينة"يطلب المستخدم من أجل بند جديد بواسطة الوظيفة 
"صندوق الإدخال u80×0م«[‏ ".ومن ثم يبحث عن البند في مجمع بنود الأداة بواسطة الطريقة "إيجاد نصFindstring‏ " 
وإذا كان البند الجديد غير موجود فإنه يعمل على إضافته إلى الأداة.ومن ثم فإن الكود يجتار البند الجديد في 


القائمة.ليعمل هذا,فإنه يضع خاصية الأداة"الفهرس المختار ×ملdمآكdمtخعماهS‏ " إلى القيمة المعاد بواسطة 
الطريقة "إضافة.بندكفك4.ك"۳هغ1 ) أو القيمة المعادة بواسطة الطريقة" إيجاد نص و«صذعإخ؟۵٬ذ۴‏ " بالاعتماد على 


إما أن البند تم إيجاده أو تم إضافته إلى القائمة.الكود التالي يبين كيفية إضافة بند جديد إلى أداة صندوق 
المركب وقت التنفيذ: 

Private Sub Button1l Click(...) Button1.Click 

Dim itm As String 

itm = InputBox ("Enter new item", "New Item") 

If itm.Trim <> "" Then AddElement (itm) 

End sub 

الإجراء الجزئي"إضافة عنصرخ ۸33۳16۳6٥١‏ "و الذي يقبل نص كمعامل نسي ويضيفه إلى الأداة المبين في الكود(في الكود 
الكامل(راجع الكود ف الأسفل) .فإذا كان البند غير موجود في الأداة يتم إضافته إلى المجمع"بنود كصم)] " أما إذا 
كان البند عضو في مجمع"البنود كصع)] " يتم اختياره.كما هو في مبين في كود هذا الإجراء,نفس هذا الأجراء سيتم 


استخدامه بالطريقة الثانية لإضافة بنود وقت التنفيذ(من اجل إدخال اسم البلد). 


والآن إليك الكود كامل: 


Public Class Forml 


Private Sub Form1_ Load (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase. Load 
cbCity.SelectedIndex = -1 
cbCountry .SelectedIndex = -1 

End sub 


Sub AddElement (ByRef control As ComboBox, ByVal newItem As String) 
Dim idx As Integer 
If control.FindString (newItem) >= 0 Then 
idx = control .FindString (newItem) 


Else 
idx = control. Items . Add (newItem) 
End If 
control. SelectedIndex = idx 
End sub 


Private Sub cbCountry_ LostFocus (ByVal sender As Object, ByVal e As System.EventArgs) Handles 
cbCountry.LostFocus 
Dim newItem As String = cbCountry . Text. Trim 
If newItem <> "" Then AddElement (sender, newItem) 
End Sub 


Private Sub bttnLocateCountry_ Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
bttnLlLocateCountry .Click 
Dim itm As String 
itm = InputBox ("lll اسم‎ TESIERE E OT 
If itm <> "" Then 
AddElement (cbCountry, itm) 
End If 
End sub 


Private Sub bttnCancel Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
bttnCancel .Click 
ClearFields () 
txtName . Focus () 
End sub 


1ا0sخ۴هcانك تستطيع أيضا إضافة بنود جديدة وقت التنفيذ بإضافة نفس الكود في معالج حدث الأداة "فقد التركيز‎ 
N 
Private Sub ComboBox1 LostFocus (...) Handles ComboBox1.LostFocus 
Dim newItem As String = ComboBox1 . Text 
AddElement (newItem) 
End sub 


تسمح لك أداة شریط الانزلاق :ءهة118٥0ءء5و‏ أداة شريط السياق :ةK8عةء1بتخصيص‏ الحجم , بسحب الناخب۲هاع‌اهء بين 
القيمتين الأكبر والأصغر.في بعض الحالات لا يعلم المستخدم مقدما قيمة الكمية التي عليه تخصيصها (الحالة التي يفي 
فيها صندوق النص بالغرض مثلا)لذا فإن تطبيقك يب أن يوفر آلية أكثر مرونة لتخصيص القيمة ,من خلال بعض 


الأنواع المرئية للتغذية الراجعة feedback‏ 

سمح شريط الانزلاق الشاقولي للمستخدم بتحريك المستند الطويل للأعلى أو الأسفل وهو مثال نموذجي لاستخدام 
أداة شریط الانزلاق. شريط الانزلاق والتغذية الراجعة المرئية kعدطكهه٤‏ 1هداوذب هما الآليتان الرئيسيتان من أجل 
إعادة تموضع المشهد في المستند الطويل أو في الصورة الكبيرة والتي لا تتناسب بشكل كامل في نافذتها. أداة شريط 
السياق تماثل أداة شريط الانزلاق,ولكنها لا تغطي محال مستمر(متواصل) من القيم.حيث أن أداة شريط السياق لها 
عدد ثابت من علامات التدريج (التقسيمء۴عإدص عدخ )حيث يستطيع الميرمج أن يعنون (مثلا ثابت,بطيء ,سرعة 
الدوران(الانعطاف) كما مبين في الشكل) . يمكن للمستخدمين من وضع مؤشر المنزلقة إلى القيمة المرغوبة,بينما أداة 
شريط الانزلاق تعتمد ereliesلy‏ بعض التغذية الراجعة المرئية خارج إطار الأداة لمساعدة المستخدم في وضع 
المؤشر إلى القيمة المرغوبة ,جير أداة شريط السياق المستخدم على الاختيار من مجال لقيم مشروعة. 


Trackbar Dema 


الشكل:تسمح أداة شريط السياق باخحتيار واحداة من القيم المنفصلة ٠1٤١ءا‏ 
باختصار ,سيتم استخدام أداة شريط الانزلاق عندما تكون القيمة بالضبط(القيمة الدقيقة) غير مهمة بقدر أهمية 
تأثير القيمة على كائن أخر أو عنصر بيانات(أي تأثير القيمة أهم من دقتها) .وسيتم استخدام أداة شريط 
السياق عندما يكون بإمكان المستخدم كتابة قيمة عددية والقيمة التي يتوقعها تطبيقك هي عدد ضمن مجال 
محدد,مثلا الأعداد الصحيحة بين 0 و100 أو القيمة بين 0 و5إنش بجخطوات بطول 0.1إنش( . . . 0.2 ,0.1 ,0.0 
0.) .يتم تفضيل أداة شريط السياق بالنسبة لأداة صندوق النص في الحالات المتشابهة لأنه ليس هناك حاجة للتحقق 
من البيانات من جهتك.فالمستخدم لا يستطيع تخصيص إلا القيم العددية المتاحة بالفارة. 


لا توجد أداة شريط الانزلاق بجد ذاتها per se‏ ف صندوق الأدوات,عوضا عنها يوجد تنوعان لها: أداة شريط الانزلاق 
الأفقي HScrollBar‏ وأداة شريط الانزلاق الشاقولي .VScr0118ar‏ يتلفان فقط في اتجاههماء ولكن ولأنهما یشتركان 
بنفس المكونات فإني سأشير إليهما مجتمعتان كأدوات شريط الانزلاق.فعليا كلاها يرث tذععطصذ‏ من أداة شريط 
الانزلاق,والتي هي أد اة مطلقة خعدإخوطة:يمكن استخدامها لتنفيذ أشرطة أنزلاق أفقية و شاقولية ولكن لا يمكن 
استخدامها مباشرة على الفورم .و أكثر من ذلك فإن أد اة الانزلاق الأفقية والشاقولية غير معروضتان في 

سوية (عروةطهغ ) الأدوات المشتركة sاەعإخzon common‏ لصندوق الأدو ات×هط1اهه1 .عليك فتح سوية (لسان) جميع نماذج 
ویندوز "اه۴ Windows‏ لتجد هاتان الأداتان. 

أداة شريط الانزلاق :ة118هءء؟هي شريط مصذءاءطويل مع مؤشر يتيح للمستخدم باختيار قيمة من بين نهايتي 
الأداة.النهاية اليسارية (السفلى) للأداة تتوافق مع القيمة الدنياستداسذصنص , أما النهاية الأخرى فهي القيمة 
العظمى ستاسذ×ةص للأد اة .القيمة الحالية للأداة هي الحددة بواسطة موضع المؤشر,والذي يمكن زلقه بين القيمة 
الصغرى والعظمى. الخاصية الأساسية لأد اة شريط الانزلاق إذاً ت# تسميتها بشكل مناسب وهي القيمة الصغرى "uصذہنM‏ 
و العظمى "uصت×Na‏ . 


الخاصية «”تنصتمتلرو الخاصية «تصت×ة1هي قيم صحيحة .لتغطية مجال غير القيم الصحيحة كإمومخمتصمص ,عليك توفير 
كود ليربط القيم الفعلية بقيم صحيحة .مثلا لتغطية مجال من 2.5 إلى8.5 ضع خاصية الصغرى "”نصذصنلMإلى‏ 25 
وخاصية العظمى «ناصذ×ة1×|ل85 وقسم قيمة مناا1ةبالأداة على عشرة10 .إذا كان الممجال الذي تحتاجه من25- إلى 
5, افعل المثل ولكن ضع خاصية «ناصتد ن1 الصغرى إللى25- وخاصية «نصذ×ة1العظمى إلى 85وقسم خاصية Va1ue‏ 
القيمة على 10 . 

يوجد خاصيتان أيضا تسمحان لك بالتحكم بجركة المؤشر:خاصية تغير صغير هو,ةط٤11ة«؟وخاصية‏ تغير كبير 
LargeChange‏ . الخاصية الأولى هي الكمية التي يتغيبر بها المؤشر عندما ينقر المستخدم الأسهم التي عند نهايتي 

الأد اة ,خاصية التغير الكبير LarğeChange‏ الإزاحة للمؤشر عندما ينقر المستخدم في مكان على شريط الانزلاق 
نفسه .تستطيع معالحة شريط الانزلاق باستخدام لوحة المفاتيح أيضا ,ضغط مفتاح السهم س«٥ءعةلتحريك‏ المؤشر في 
الاتجاه الموافق بتغير صغيرهومة٣٥٤11هة".S>‏ .والمفاتيح صفحة PageDown/ PageUp Je Û‏ صفحة للأسفل لتحريك المؤشر 
LargeChangejuS pii‏ 


يسمح هذا المشروع البسيط للمستخدم بتخصيص لون ما بمعالحة قيمة الألوان الأساسية (الأمر, الأخضرءو الأزرق) من خلال 
أشرطة انزلاق.فكل لون أساسي تم التحكم به بواسطة شريط انزلاق ولديه قيمة صغرى هي الصفر وقيمة عظمى وهي 
5 .إذا كنت لا تعرف تعريف الألوان في بيئة ويندوز انظر المقطع"تخصيص الألوانكإهاه٣‏ و«ذرإf۴fذعءهمS‏ " في الفصل 
9 '"معاج الصور وw>lسlanتBitmaps Manipulating Images and‏ " 

عند تحريك مؤشر شريط الانزلاق,فإن اللون الموافق يتم عرضه,ويستطيع المستخدم بسهولة تخصيص لون ما بدون معرفة 
القيم الدقيقة لمكوناته الرئيسية.يحتاج جميع المستخدمين لمعرفة فيمإذا كان اللون المرغوب يحتوي ,مثلا على 
الكثير من الأمر أو القليل من الأخضر.بمساعدة أشرطة الانزلاق والتغذية الراجعة المباشرة من التطبيق,يمكن 
للمستخدم بسهولة أن يعين بدقة اللون المطلوب.لاحظ أن القيم الدقيقة للمكونات الأساسية للون ليس لها أهمية 
عملية»فقط المهم إحصائيات اللون الأخير. 

ضع الأدوات المبينة في الشكل على الفورم واعمل على إعداد الخاصيات التالية لها: 


الواح 


borderstyle= Fixed3D PictureBox1 صندوق الصورة‎ 
borderstyle= Fixed3D PictureBox2 öةروصلdا صندوق‎ 


text =ر^Î حمر‎ 
Forecolor=red 
Name= l1lb1lRed 


text =ğرjÎ أزرق‎ 
Forecolor=blue 
Name= 1blBlue 


HScro11Bar قٺjiلاl أشرطة‎ 


شريط انزلاق اجحمر name= greenBar‏ 


إليك الآن الكود كامل: 
Private Sub redBar_Scroll (ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs)‏ 
Handles redBar. Scroll‏ 
If e.Type = ScrollEventType.EndScroll Then ColorBox1 ()‏ 
1bl1Red.Text = "RED " & redBar.Value.ToString ("###")‏ 
End Sub‏ 


Private Sub blueBar_Scroll (ByVal sender As System.Object, ByVal e As 
System.Windows. Forms. ScrollEventArgs) Handles blueBar. Scroll 
If e.Type = ScrollEventType.EndScroll Then ColorBox1 () 
1blBlue.Text = "BLUE " & blueBar.Value.ToString ("###") 
End sub 


Private Sub greenBar_ValueChanged (ByVal sender As Object, ByVal e As System.EventArgs) Handles 
greenBar.ValueChanged 
ColorBox2 () 
End Sub 


Sub ColorBox1 () 
Dim clr As Color 
clr = Color.FromArgb (redBar.Value, greenBar.Value, blueBar.Value) 
PictureBox1.BackColor = clr 

End Sub 


يمكن للمستخدم أن يغير قيمة أداة شريط الانزلاق بثلاث سبل:بالضغط على السهمين الذين عند كلا نهايتيهاءبضغط 
المنطقة الموجودة بين المؤشر والأسهم,وبسحب المؤشر بالفارة.بإمكانك عرض التغيرات لقيمة شريط الانزلاق من ضمن 
كودك باستخدام حدثين:"القيمة تغيبرت edوnةnط€٣Va1ue‏ " وانزلاق11دععك؟ .كلا الحدثين يتم إطلاقهما في كل مرة يتغر 
فيها موضع المؤشر. إذا غيرت قيمة الأداة من ضمن كودك»فإن الحدث"القيمة تغبرت 4ءوnصةط٤عن1ة۷"‏ هو الوحيد الذي 
سيتم إطلاقه. 

الحدث "انزلاق 11٥ء8"‏ يمكن إطلاقه في حالة الاستجابة للعديد من الأفعال»مثل زلق (سحب) المؤشر بالفارة, الضغط 
على أحد الأزرار الجودة عند نهايتي الأداة,وهكذا. إذا أردت معرفة الفعل الذي سبب هذا الحدث.تستطيع اختبار 
الخاصية "نوع هطو" للمعامل النسي الثاني من معايج الحدث. إعدادات الخاصية"نوع الحدث ي#طر1.٠"هي‏ عضو في عداد 
"نوع حدث الانزلاق eعر1خ"7yen٭011#ءإSc"‏ (تناقص كبير,زيادة صغيرة ,سياق ,وهكذا) 


يوضح تطبيق الألوان كيفية بريحة كلا الحدثين لأداة شريط الانزلاق.تعرض أداتي صندوق الصورة اللون المصمم بواسطة 
أدوات أشرطة الانزلاق الثلاث,صندوق الصورة ×#80إنtعذط‏ الذي على اليسار يتم تلوينه من ضمن 

الحدث" انزلاق 11٥إء؟",بينما‏ الأخر يتم تلوينه من ضمن الحدث "القيمة تغيبرت كم و٬ةطZ٣م1uهV"‏ تم إطلاق كلا الحدثين 
عندما يسحب المستخدم مؤشر شريط الانزلاق.ولكن في معالج حدث الانزلاق 11٥0ءءS٤لأشرطة‏ الانزلاق الثلاث,يتفحص الكود 
قيمة الخاصية" هطر1.٠"‏ ويتفاعل معها فقط إذا تم إطلاق الحدث لأن سحب المؤشر قد انتهى.من أجل جميع الأفعال 
الأحرى لا يعمل معاج الحدث على تحديث اللون لصندوق الصورة الذي على اليسار . !ذا حاول المستخدم تغير قيمة 
اللون بالضغط على كلا السهمين لشريط الانزلاق أو بالضغط في المنطقة علي يسار أو يمين المؤشر .لون صندوقي الصورة 
يتم تحديثه.بينما يزلق المستخدم المؤشر أو يبقى ضاغطاً على واحد من أسهم أدوات شريط الانزلاق فإن الصورة 
التي على اليمين هي فقط التي يتم تحديثها. 

النتيجة من هذه التجربة هو أنك تستطيع بريمحة إما حدث لتوفير تغذية راجعة ععدطكهه٤مستمرة‏ للمستخدم. إذا 
كانت هذه التغذية الراجعة تتطلب الكثير من الحسابات,والتي ستبطن استجابة معاج الحدث الموافق.تستطيع تأجيل 
ostponeمالاستجابة‏ حتى يتوقف المستخدم عن سحب المؤشر.تستطيع التقاط اtعءمغعمكهذه‏ الحالة باختبار القيمة 
للخاصيةهمرآ.٠.عند‏ القيمة "نوع حدث الزلق.انتهى الزلق: 11٥ءE¬dSc.‏ 1Event1ypeا01اSc"‏ ,تستطيع تنفيذ 
العبارات المناسبة.(راجع الكود خلف شريط الانزلاق للون الأمر للحدث "زلق 11هعءعءك؟ك" والحدث"القيمة 
تغبرت dەangةط€٣Va1ue"‏ .كود حدث الاستجابة بالنسبة لأدوات أشرطة الانزلاق الأخرى مشابه. 

يعمل الإجراء ()80×1ءإ€01oو‏ 80×x2ءco10€على‏ تحديث لون أد اتي صندوق الصورة بوضع لون الخلفية لكل منهما. 


إن أداة شريط السياق مشابهة تماما لأداة شريط الانزلاق,ولكن أداة شريط الانزلاق تفتقر ءععد1إلى التدرجات 
(التقسيمات رخذعإدةانامةءإو) . على فرض أنك أردت من مستخدم التطبيق أن يعطي قيمة ضمن محال معين,مثل سرعة 
كائن (جسم )متحرك,وأكثر من ذلك,فأنت لا تريد السماح بالزيادة المفرطة في الدقة٣هذئذعءهإم.ما‏ تحتاجه فقط 
عدة إعدادات,كما هو مبين في الشكل السابق(اختر سرعة المركب) والشكل التالي,يستطيع المستخدم أن يضع قيمة 
الأد اة بزحلقة و«ذهذا1اءالمؤشر أو بالضغط على أي جهة من المؤشر. 

(الانش(توضيم اراق شريط السياة | 


الحبيبية (التدريجات رخت٣إةu1مةءإي)‏ هي بأي تخصيص(تحديد) تريد أن يكون القياس .في قياس المسافات بين المدن تكون 
تدريات الميل eخuaوەكa‏ مtزuوكافية‏ تماما(ملائمة) .في قياس(تحديد) الأبعاد لبناء ما ممكن للتدريجات أن تكون 


بمقياس القدم, أو الانش,أداة شريط السياق تسمح لك بوضع نوع المقياس الضروري لتطبيقك.بشكل مشابه لأداة شريط 
الانزلاق, الخاصية 9e"ةnط€٤Sma11‏ و الخاصية 9e‏ ¬ha€eوerامتاحتان,و"التغير‏ البسيط مء9٣ةط€٤a11مصS"هي‏ الزيادة الأقل 


التي يمكن أن تتغير بها قيمة المنزلقة إعهذ81.يستطيع المستخدم أن يغير هذه المنزلقة بواسطة قيمة"التغير 
البسيط" بزلق المؤشر فقط .(لا تشبه أداة شريط الانزلاق فلا يوجد سهمين عند نهايتي أداة المنزلقة إملdنا1اS)‏ لتغير 
قيمة المنزلقة بالخاصية "تغير کبر ه۸9 3 1٤8و12۲‏ "یستطیع المستخدم أن يضغط على أي من جهتي المؤشر. 


يوضح الشكل السابق استخدام نموذجي لأداة شريط السياق. الفورم في الشكل السابق هي عنصر واجهة مستخدم 
البرنامج والتي تسمح للمستخدم بتخصيص المسافة بين الصفر0 والعشرة10 بالإنش,وبزيادة بمقدار0.2انش.عندما 
يزحلق المستخدم المؤشر,فإنه يتم عرض القيمة الحالية على أد اة عنوان أسفل شريط السياق. 

يمكن أن تحدد للأداة 0 توقف(تقسيمات) ولكن فقط 10 منهم ستكون مرئية.يستطيع المستخدم ومهما يكن وضع المؤشر 
على أي من علامات الوقف(التيك) ال40 الغير مرئية.يمكن أن تفكر في أن العلامات المرئية كعلامات تدريج 

رئيسية عەزحص,والعلامات غير المرئية كعلامات ثانوية إمصتص. إذا كانت خاصية" "rick Frequency‏ مي 5,سیكون 
مرئي فقط 5 علامات,وسيتوقف مؤشر المنزلقة عند جميع علامات الوقف(التأشر) أو التدريجmarks .tick‏ 

عندما تستخدم أداة شريط السياق على واجهة تطبيقك,عليك إعداد خاصية" إcyء«عuو٥إ۴٣ickا"‏ إل قيمة تساعد 
المستخدم باختيار الأعداد المطلوب, الكثير من علامات الوقف تكون مربكة وصعبة القراءة.وبدون علامات الوقف,لا 
تساعد الأداة كثيرا,من الممكن أيضا أن تضع القليل من أدوات العنوان لتشير إلى قيمة العلامات المختارة.كما 
فعلت في هذا المثال. 

خاصيات أداة شريط السياق في تطبيق "الإنش" هي التالية: 

خاصية الأصغر ٣ناصذ,ة™ل0=N‏ 

خاصية الأعظم mu"‏ axiل50=N‏ 

خاصية "التغير النلبسيط ="Smal1Change‏ 

خاصيیة "التغر انٹکıيير 5="LargeChange‏ 

5="TickFrequencyéتşيlا‎ عğباتت"ةيصاخ‎ 

تحتاج أداة شريط السياق أن تغطي الجال 10انش بزيادة قدرها0.2انش. إذا وضعت خاصية"التغير البسيط"إللى1 عليك 
وضع خاصية "التغير لكبير" إلى5,وأكثر من ذلك تم وضع خاصية"تكرار الوقف" إلى 5,لذا سيكون مجموع من خس تقسيما 
في كل إنش . الأعداد تحت علامات الوقف تم وضعها هناك بواسطة أدوات عنوان مرصوفة.و أداة العنوان التي في الأسفل 
تحتاج إلى تحديث عند تغير قيمة شريط السياق. تمت الإشارة إليها في التطبيق بحدث"التغير هو«هط٣"‏ ,و الذي يحدث في كل 


مرة تتغير فيها قيمة الأداة,سواء من خلال السحب أو من ضمن اldكgد.)رlجg ValueChanged event handler‏ كود 


معالج حدث تغبر القيمة لأد ١ة‏ شریط السياق (TrackBar‏ 
ولآن افتح مشروع جديد ولمه "مشروع الإنش" وضع عليه الأدوات المبينة في الشكل وضع خاصيات من اليمين إلى اليسار 


ولا تنسى وضع الخاصيات المذكورة في الأعلى بالنسية لأد اة شريط السياق ,نسق هذا الفورم بحجيث يبدو كما هو مبين 
في الشكل التالي: 


والآن إليك الكود كامل للمشروع(جربه وحرك مؤشر الانزلاق بالفارة ومن ثم حركه بواسطة الأسهم التي على لوحة 
المفاتيح ولاحظ كيف تظهر قيمة المنزلقة في أداة العنوان التي في الأسفل والخاصة بعرض القيمة 112٤طه]ا)‏ 
Buble Class EOEML‏ 
E va eê US Habel CINE BYMalN Sender AS Sues tem OONeECE, EVVEL E AS CVUSEEM. EVEN EREIS)‏ 
ECL MElSLN CEK, LESAGE, |_|‏ 
Maoel i Clrek, Tabela Click, Lael. Ciel, Labels CIek, Û‏ 
Label. CITEK, Kabel CINER, LaBDeNS CER, Tebel LOG Nek, Label EMER‏ 
TrackBarl1l.Value = CInt (CType (sender, Label).Text) * 5‏ 
ERG Sub‏ 
Frivate SUO TEaACKEBAEl MAlueCRNANGESNEYUS U Sender AS OBIece, EVUSl CE AS SVSEOM, EVEN EAEIS)‏ 
Handles TrackBarl.ValueChanged‏ 
LEELA STHEE > NN o 3 FE |‏ 
HOFEMaÊ (Kr aEKEe CI Value 1 SS 3 OO)‏ 


ERA SUB 
ENa ClaSS 
أدوات العنوان ا1356 التي أسفل علامات الوقف يمكن أن تستخدم لوضع قيمة للأداة في كل مرة يتم النقر على‎ 
(oo o o oOo O 0 O والذي يبدا‎ lT واحدة من هذه الأدوات, (شاهد كود معاج نقر أدوات العنوان في‎ 


